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Provando e riprovando 


Nicole Bréaud-Pouliquen 

La pratica dell’APPLE 

Per Imparare a usare un 
calcolatore bisogna... usarlo. 

Solo cosi, ad esempio, è 
possibile scoprire e sfruttare 
le immense risorse operative 
offerte dall’APPLE. Provando, 
riprovando e... leggendo un 
manuale come questo. 

Scritto da un vero esperto, il 
libro si compone di 3 capitoli 
fondamentali: 

• Il sistema APPLE II” 
dedicato all’hardware e al 

<*nftwarp 

• “Il BASIC APPLESOFT” 

con le istruzioni, 
i sottoprogrammi, 
gli operatori aritmetici e 
logici 

e “Il disegno e la grafica” 

con le zone di memoria RAM 
e le funzioni grafiche. 

Il tutto arricchito da numerosi 
esempi ed esercitazioni con i 
soluzioni: affinchè la pratica * 
abbia l’immediata 
soddisfazione del riscontro. 

130 pagine 
Lire 10.000 
Codice 341D 
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Uno sguardo dietro l'angolo 


di Riccardo Paolillo 

La Cooperativa Teatro di Porta Romana di Milano, 
ha recentemente messo in scena una commedia dal 
titolo molto familiare per noi del Gruppo Editoriale 
Jackson: “Bit”. 

La vicenda, per raccontarla in due parole, si svolge in 
una cittadina che vive all’ombra di una grande azien¬ 
da di informatica, dove il tempo scorre scandito dal 
succedersi di assunzioni e pensionamenti che deter¬ 
minano un naturale ricambio generazionale. Tutto 
questo fino a quando subentra la nuova tecnologia a 
sconvolgere la solita routine e, grazie ai terminali 
domestici, tutti possono lavorare a casa, anche se 
anziani o malati. 

La conclusione è in chiave ironica: al vecchio ex¬ 
dipendente, da tempo pensionato e ripescato grazie 
alla sua esperienza, viene recapitato un piccolo termi¬ 
nale con il quale lavorare a casa, mentre il giovanissi¬ 
mo successore, ormai inutile per l’azienda, viene pa¬ 
radossalmente collocato in pensione. 

Anche se non completamente d’accordo con certe 
tesi sostenute dall’autore, occorre tuttavia sottoli¬ 
neare come si sia riusciti ad affrontare in modo spiri¬ 
toso ed efficace un tema non certo semplicissimo. Ma 
come sarà il futuro telematico? Si possono fare alcu¬ 
ne ipotesi, basandosi su quelle che sono le tendenze 
attuali. 

In questo periodo, parallelamente alle ricerche in 
atto per sviluppare processori sempre più veloci e 
potenti, si sta lavorando molto nel campo delle tele¬ 
comunicazioni e delle memorie a basso costo. Uno 


degli obiettivi è quello di decentralizzare il lavoro per 
determinate categorie impiegatizie e professionali, 
rendendo non più necessario il dover raggiungere 
quotidianamente un ufficio, ma permettendo di lavo¬ 
rare ovunque, anche a casa e con orari variabili. 

I benefici ipotizzati sono facilmente immaginabili: 
diminuzione di strutture non produttive (uffici) e 
limitazione dei costi dovuti ai tempi di trasferimento 
del personale. Quindi razionalizzazione di utilizzo di 
alcuni sistemi, come ad esempio i trasporti, che ri¬ 
schiano il collasso in quanto sollecitati pesantemente 
negli orari di punta e non sfruttati uniformemente 
durante tutto l’arco della giornata. Inoltre una mi¬ 
gliore utilizzazione del tempo libero individuale: in¬ 
fatti l’orario di lavoro diventerebbe molto più flessi¬ 
bile e personalizzabile a beneficio delle attività ricrea¬ 
tive che potrebbero essere molto più dilazionate nel¬ 
l’arco della settimana e non concentrate nelle ore 
serali e festive. 

II rovescio della medaglia per questi nuovi modelli di 
vita è costituito principalmente dal rischio che il 
processo di asocializzazione tuttora in corso, soprat¬ 
tutto nelle grandi città, si accentui ulteriormente e 
porti a far sì che ognuno viva esclusivamente all’in- 
terno del suo micro-cosmo personale o al massimo 
familiare. Questa è indubbiamente una grande inco¬ 
gnita e a seconda di come verranno affrontati questi 
problemi avremo un modo di vivere nettamente di¬ 
verso nei prossimi decenni. 

Un fatto comunque è certo: la storia ci insegna che 
non è possibile andare indiscriminatamente contro o 
addirittura rifiutare nuove tecnologie. Ma occorre 
sempre fare in modo che le nuove tecniche, con le 
loro conseguenze sia positive che negative, vedano 
sempre l’uomo come figura dominante di utilizzato- 
re. ■ 
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Esperti a confronto 
su attualità e prospettive 
della Computer Grafica 


Computer Graphics, CAD, 
elaborazione di immagini: 
sistemi e applicazioni 

A cura di 

Alessandro Polistina 

Linguaggi e algoritmi, sistemi 
grafici, CAD/CAM, didattica 
e formazione professionale. 
Computer Graphics e 
Editoria, modellazione di 
solidi, CAD in architettura, 

CAD meccanico, 
acquisizione e elaborazione 
di immagini, elaborazione di 
immagini e scienze 
biomediche, cartografia e 
pianificazione editoriale, 
immagini sintetiche per la 
televisione.... 

Tutti gii Atti del 3° Convegno 
Nazionale AICOGRAPHICS 
riuniti In un solo volume a 

disposizione di operatori, 
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Uno Spectrum bollente 

Posseggo uno ZX Spectrum nella 
versione da 48 Kbyte. In proposito 
vorrei porre alcune domande: 

1) Mi hanno detto che lo Spectrum 
produce una notevole quantità di 
calore dopo più di tre ore di funzio¬ 
namento. Come è dunque possibile 
che il mio Spectrum si surriscaldi 
dopo solo un quarto d’ora con con¬ 
seguente degrado deH’immagine e 
della velocità del computer? (N.B. Il 
rivenditore mi ha sostituito la mac¬ 
china 2 volte, pensando a un guasto 
dovuto al trasporto). 

2) È possibile la costruzione o l’a¬ 
dattamento di un joystick allo Spec¬ 
trum? Se sì, come? 

3) È possibile avere informazioni 
esaurienti sui comandi (e sulla loro 
utilizzazione): OPEN #; CLOSE #; 
MOVE; ERASE; CAT? 

Vincenzo Romano 
Cervino (LE) 

Lo Spectrum, a causa delle ridotte 
dimensioni, è soggetto a un sensibile 
surriscaldamento anche dopo pochi 
minuti di funzionamento. Questo fat¬ 
to, però, non dovrebbe influire sulle 
prestazioni della macchina e sulla 
qualità dell’immagine video. 

Una delle possibili cause di malfun¬ 
zionamento potrebbe essere determi¬ 
nata dall’alimentatore, che le consi¬ 
gliamo di controllare. 

Per quanto riguarda la possibilità 
di collegare un joystick, le segnalia¬ 
mo una delle ultime novità di casa 
Sinclair: la ZX Interfaccia 2. Questa 
scheda si collega direttamente allo 
Spectrum o alla Interfaccia 1 (quella 
che permette di collegare i famosi Mi¬ 
crodrive) e può ospitare speciali car¬ 
tucce (saranno disponibili soprattutto 
giochi). Alla Interfaccia 2possono es¬ 
sere connessi direttamente 2 joystick 
di tipo standard con attacco a nove 
poli. Attualmente non è ancora im¬ 
portata, ma pensiamo (e speriamo) 
che entro breve tempo sarà disponibi¬ 
le anche in Italia ad un prezzo che, 
sebbene non sia ancora stato fissato, 
sarà sicuramente molto interessante. 

I comandi che lei cita, e quelli che 


compaiono sotto altri tasti della stes¬ 
sa linea, sono predisposti per un uti¬ 
lizzo con Microdrive. 


Data base per C 64 

Sono un programmatore BASIC 
dilettante, autodidatta, in possesso 
da poco tempo di un C 64. Pur ri¬ 
uscendo già a costruire semplici pro¬ 
grammi, che mi aiutano a migliorare 
le mie conoscenze, vorrei utilizzare 
il mio C 64 anche in maniera più 
pratica, cioè vorrei formarmi vari 
archivi memorizzati a cui attingere 
in caso di bisogno senza avere una 
grande quantità di fogli e foglietti 
sparsi. Però non sono ancora riusci¬ 
to ad impostare un programma che 
mi permetta di fare questo, sicura¬ 
mente per la mia scarsa dimestichez¬ 
za sia con il BASIC che con la mac¬ 
china. 

Quindi con questa mia lettera so¬ 
no a chiedervi cortesemente, e pro¬ 
babilmente non sono il solo, se e 
quando avete la possibilità di pub¬ 
blicare sulla vostra rivista listati di 
programmi di questo tipo, oppure, 
se l’argomento è già stato da voi 
trattato se mi indicate il relativo nu¬ 
mero della rivista oppure altre vo¬ 
stre pubblicazioni o meno che tratti¬ 
no questo argomento. 

Valentino Terzi 
Bologna 

Uno dei motivi per cui non abbiamo 
a tutt’oggi pubblicato un data base 
per C 64, è costituito dal fatto che un 
programma di questo tipo richiede 
necessariamente la disponibilità di al¬ 
meno una unità a floppy disk per la 
memorizzazione dei dati. 

Infatti, a parte la lentezza in fase di 
lettura e scrittura che già pregiudica 
un utilizzo pratico efficiente, il nastro 
essendo sequenziale non consente de¬ 
terminati inserimenti e aggiornamen¬ 
ti, operazioni fondamentali anche per 
un data base elementare. 

Ora però che il C 64 è così larga¬ 
mente diffuso e molti utenti dispongo¬ 
no di una unità a disco, stiamo stu¬ 
diando un programma che soddisfi 
questa diffusissima esigenza. 

Peraltro invitiamo chiunque avesse 
già realizzato qualche applicazione 
interessante a farsi vivo con noi in 
modo di permettere a tutti di avere 
disponibile un programma che è sicu¬ 
ramente fra i più utili. 

Infine, soprattutto a titolo di curio¬ 


sità e per proporre spunti per eventua¬ 
li conversioni, ricordo che annifà nel 
1980 la nostra rivista consorella 
“Bit” pubblicò in 4 puntate nei nume¬ 
ri 7-8/9-10-11 un potente e completo 
Personal Data Base per Apple II, che 
ancora oggi è uno dei programmi più 
diffusi ed utilizzati per il personal del¬ 
la mela. 


Il TI dimenticato 

Sono un appassionato di personal 
computer. 

Ho comprato da poche settimane 
un TI 99/4A, uno degli ultimi rima¬ 
sti sul mercato: ho notato che, forse 
proprio per il fatto che il TI 99 non è 
più in commercio, nelle riviste spe¬ 
cializzate come la vostra, di softwa¬ 
re ce n’è sempre meno. 

Poiché è solo da poco che sono 
alla ricerca di programmi e ho potu¬ 
to acquistare solo i numeri 10/11, 
12,13 e 14 di Personal Software, rivi¬ 
sta interessantissima sotto ogni 
aspetto, vi sarei grato se pubblicaste 
l’elenco dei numeri della rivista in 
cui avete riportato programmi (o 
utili informazioni) per il TI 99, ma¬ 
gari con i relativi titoli. 

Antonio Lo Nardo 
Palermo 

Rispondendo a lei, cerchiamo di ac¬ 
contentare anche altri lettori che ci 
hanno fatto richieste analogie. 

Per quanto riguarda la nostra rivista, 
ci sembra che gli articoli dedicati al 
TI 99 siano rimasti in numero piutto¬ 
sto costante: in particolare, nei nume¬ 
ri che lei cita, abbiamo pubblicato 
sempre almeno un articolo e un pezzo 
nelle rubriche “I segreti dei personal” 
o “Conversioni”, 

Nei prossimi mesi pubblicheremo in¬ 
teressanti lavori del nostro collabora¬ 
tore Sergio Borsoni, che ci risulta in¬ 
contrano il vostro interesse, e anche 
programmi che altri lettori ci hanno 
inviato. In particolare Filippo Cerulo 
(altro nome familiare per i nostri let¬ 
tori) presenterà un programma per un 
utilizzo grafico avanzato del Texas. 

Per quanto riguarda articoli pub¬ 
blicati in numeri precedenti le ricor¬ 
diamo: nel n. 8/9 "Archivio scacchi¬ 
stico”, “Programmare grafici” e 
"PRINT e INPUT in un contesto gra¬ 
fico” per quanto riguarda la rubrica 
"I segreti dei personal”. Per la stessa 
rubrica nel n. 7 abbiamo pubblicato 
“INPUT e stampa estesa”. 
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Rally Safari 


RALLY AUTOMOBILISTICO 
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Figura 1. Rappresentazione della partenza. 
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Figura 2. Attraversamento della foresta nera. 


Una appassionante 
corsa automobilistica 
con il vostro 
ZX Spectrum 

di Ivano Parbuono 


L a macchina da sempre è 
una delle cose che più ap¬ 
passiona e coinvolge un 
po’ tutti. C’è chi la usa come mezzo 
di trasporto, chi per fare gite e chi 
invece la vede come mezzo di com¬ 
petizione. 

Nel campo dei videogiochi non 
mancano certo le gare automobili¬ 
stiche e su questa scia viene qui pre¬ 
sentato un programma in BASIC 
che simula un Rally Safari Monaco- 
Montecarlo-Nairobi. La partenza 
avviene a Monaco e, attraversando 
la foresta nera, si deve giungere a 
Montecarlo ma qui cominciano le 
difficoltà; il traffico di Montecarlo è 
caotico e per poter proseguire si de¬ 
vono evitare incidenti e se ci si riesce 
si può proseguire verso la nostra me¬ 
ta che è il Kenia, più precisamente 
Nairobi. A questo punto la pista di¬ 
venta ancora più difficile: la savana 
è piena di ostacoli, ci sono cactus 
dappertutto e si incontrano animali 
come le giraffe e gli elefanti che met¬ 
tono a dura prova le capacità di sce¬ 
gliere il passaggio giusto per poter 
giungere al traguardo e vincere così 
la tanto sospirata quanto meritata 
coppa, unita ad una trionfale musi¬ 
chetta. Le figure da 1 a 7 visualizza¬ 
no le varie situazioni del rally. Se il 
gioco appare troppo difficile per il 
raggiungimento del traguardo si 
può intervenire alla linea 4120 per il 
tratto che va da Montecarlo in Ke¬ 
nia togliendo un carattere grafico, 


oppure alla linea 5120 per il tratto 
dell’attraversamento della savana 
togliendo uno o più caratteri grafici. 
Buon divertimento. 


Il programma 

Il programma è riportato nel li¬ 
stato 1 e la figura 8 contiene la lista 
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SEI RRRIURTO R NRIRQBI 


<$> 


LR SRURNR DEL KENIR DOURRI FRR 
POCO RTTRRUERSRRE PRIMR DI 
GIUNGERE UITTORIOSO RL TRRGURRDO 

V ** k U * Y U 


È IN EDICOLA 



GRUPPO EDITORIALE 
JACKSON 


Figura 5. Arrivo in Kenia. 
















Rally 

Safari 


dei segni grafici. 

La figura 9 è il diagramma a blocchi 
del programma, che può essere utile 
a chi volesse studiarne in dettaglio il 
funzionamento. Il programma ini¬ 
zia subito dalla linea 120 alla 168 
con la definizione dei caratteri grafi¬ 
ci. Mentre le linee che vanno dalla 
188 alla 196 fanno si che appaiano 
sul video le istruzioni della partenza 
del Rally Safari. 

La linea 200 imposta il tempo della 
gara, la linea 310 affida ai tasti 5 e 8 
il movimento della macchina che a 
sua volta è rappresentata sul video 
dalla linea 400. 

Le linee 450 e 500 servono a creare 
sia la foresta che il movimento dello 
schermo. La linea 550 stampa sul 
video attimo per attimo il punteggio 
raggiunto mentre la linea 560 fa di¬ 
minuire il tempo iniziale da 90 se¬ 
condi fino a 60. Al raggiungimento 
di tale tempo, se non si sono creati 
incidenti durante il percorso, si pas¬ 
sa alla linea 4000 che ci avverte che 
siamo arrivati a Montecarlo. 

Se invece durante il percorso si è 
creato un incidente viene rivelato 
dalla linea 350 che rimanda il pro¬ 
gramma alla linea 8000 dove, con un 
effetto di colori, viene segnalata la 
fine della gara e stampato sul video 
il punteggio raggiunto e il massimo 
punteggio delle gare precedenti. Do¬ 
po una breve pausa la macchina vie¬ 
ne riposizionata alla partenza pron¬ 
ta per una successiva prova. Dalla 
linea 4030 alla 5170, anche se con 
piccole varianti di grafica di punteg¬ 
gio e azzeramento di tempo, si ripete 
il ciclo qui sopra descritto. Alla linea 
5186 viene effettuato un controllo 
sul tempo che se risulta inferiore a 1 
produce l’esecuzione della 5500 che 
stampa sul video il traguardo crean¬ 
do una piccola pausa e dopo questa, 
entra in funzione la linea 6000 ini¬ 
ziando a suonare una musichetta 
per annunciare la vittoria, stampan¬ 
do anche la coppa. Dopo una breve 
pausa, il programma chiede se si 
vuole giocare ancora. 



BRRUXSSXMQ SEX RRRIURTO RL 
TRRGURRDO 



HRI UINTO LR COPPA DEL RRLLY 


T 


Figura 7. Consegna della coppa. 


Linea 190 segno grafico C D - E F 
Linea 196 segno grafico G 
Linea 4016 segno grafico L K 
Linea 5020 segno grafico J I H 
Linea 6020 segno grafico M O - N P 


Figura 8. Lista dei segni grafici. 
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Rally 

Safari. 


Listato 1. Programma Rally Safari. 

90 REM © ivano Parbuono 
By UERONA 1983 
100 LET hi=0 

130 POR C =U5R "C" TO USR "p"-f7 

125 RERD user: POKE c,user 

126 NEXT c 

130 DfiTfi 0,0,0,0,13,11,13,3 
135 DRTR 0,0,0,0,176,208,176,19 

14-0 DRTR 6,117,307,233,308,34.0, 
3 

146 DRTR 102,174,243,251,19,15, 
48,192 

150 DRTR 24,28,62,62,124,30,24, 
62 

152 DRTR 192,64,64,64,124,254,1 
32 132 

154 DRTR 64,160,30,63,63,18,18, 
18 

156 DRTR 81,83,50,33,24,16,16,1 

6 158 DRTR 34,90,126,90,24,153,35 
5,189 

160 DRTR 16,52,84,146,56,40,68, 
130 

162 DRTR 255,255,127,63,31,3,3, 
3 

164 DRTR 3,3,3,3,3,3,31,63 « o 

166 DRTR 254,354,252,248,240,12 
8 126 loft 

Ì68 iSRTR 128,138,128,128,128,12 

8 ieé®6LS 8 : BEEP .9,7: BEEP .4,7: 

BEEP .3,2: PRINT RT 3,5; INK 1, 
"RALLY RUTOMOBILISTICO 

MONRCO NRIROBI : BEEP .6,4 

' 190 E PRXNf 2 RT 6,15; INK Si "m“i fi 

T 19é 1 BèEp N ^9 2 è: PRINT RT 10,10; 
FLASH 1; "M O N R C g“; DOTN 

T^rt !1=4; ■•^R POCO P RfTRRUÈRSERS 

ilé^PRINT^RT^lS^I; 1 ^^ FLR5H 
BIRDER^.JRPER^: INK S^C 


310 LET £ 
300 PRINT 


= 0 


RT 2 , k ; " BEEP .015 

'310 LET k=k+fINKEY*="8" RND k<3 
0)-CINKEY*="5" RND k>0» „ 

350 IF SCREEN* <3,k)=““ THEN OO 

352 B IF®SCREEN* {3,k+l)="“ THEN 

G 400°PRINT RT 2,k; INK 2; " m "i RT 

3.k; ink s 

450 PRINT TRB®INT {RND*31); INK 

4; "É" 

500 POKE 23692,10 

550 LET p=p+10. PRINT RT 0,0;"P 
UNTI p 
560 LET t = t-.2 

570 IF t <60 THEN GO TO 4000 
600 GO TO 300 

4012 CLS : BEEP .7,5: BEEP .9,12 
: PRINT RT 4,4; FLASH 1;"SEI RRR 
IURTO fi MONTECRLO": PRINT RT 13, 
2;"ATTENTO RL TRAFFICO CAO TICO": 

PRINT RT 14,9;"DELLA CITTA'": B 
EEP .9,6: BEEP .4,2 

4014 PRINT RT 7,15; INK 2;"»";A 
T 8,15; INK 2; 

4016 PRINT RT 18,7; INK 5; FLASH 
l; “A* * X* XX*:" : PAUSE 15 

0 : CLS 

4030 PRINT RT 4,k;" ": BEEP .015 

, 1 

4050 LET K=K+CINKEY*=“8" RND k<3 
0)-(INKEY*^"5" RND k>0) 


NEL PROSSIMO 
NUMERO 
DI 



TROVERETE: 

• ANTEPRIMA: OLIVETTI MIO 

• VISICALCOLIAMO 
L’IRPEF ’84 

• PFS: FILE, UN ARCHIVIO 
ELETTRONICO 

• QUICKCODE: 

GENERATORE 
DI PROGRAMMI 
PER DBASE II 

• ACQUISIRE DATI CON IL 
VIC 20 

• TUTTO FIERE: EDP-USA, 
SIOA, COMPUTER SHOW 

• Al 28: 

COME RADDOPPIARE 
LA MEMORIA DELL’APPLE 

• TAPE-LABEL PER C 64 

• IL VIC IMPARA 
DALL’ESPERIENZA 

• BIP-BIP: UN GIOCO 
PER SPECTRUM 

• FORMULA 1 CON IL PET 

ED ALTRI 

FAVOLOSI PROGRAMMI 
PER IL VOSTRO 
PERSONAL COMPUTER 


i 

















Rally 

Safari. 


Seguito programma Rally Safari. 

4.060 IF SCREEN* (5,k)="" THEN GO 
TO 6000 

4.062 IF SCREEN* (5 , Il+1J " THEN 

GO TO 8000 
4.110 PRINT RT 4 , K ; 

5,X; INK 2; "*JG" 

4115 PRINT RT 21,0 
4120 PRINT TRE INT 


41è©*P^KE 23692,90 
4170 LET p=p+13. PRINT RT 0,0 
UNTI p 
4185 LET t =t-.2 

4190 IF t <30 THEN GO TO 5000 
4200 GO TO 4030 

5000 CLS : BEEP .4,7: BEEP .8,12 
: PRINT RT 4,5; FLRSH 1;"SEI RRR 
IURTO R NAIROBI": BEEP .5,5: PRI 
NT RT 13,0;" Lfl SAUANA DEL KENIR 
DOURRI FRA POCO RTT RRU ERSRRE 
PRIMA' DI GIUNGERE UTTTORIOSO 
AL TRRGURRDO": BEEP .9,4: BEEP . 
4,3 

5010 PRINT RT B, 15; INK 2;"„";A 
T 9,15; INK 2; "<JG" 

5020 PRINT RT 19,8; INK 4; FLASH 
li" V * h h > V J» PAUSE 150: 
CLS 

5030 PRINT RT 4*, K ; M M : BEEP .015 

é050 LET X= X+CINKEY*-"S" AND k<3 
0) - (INKEY*=."5" AND fc>0) 

5060 IF SCREEN* (5,k)="" THEN GO 
TO 8000 

5062 IF SCREEN* (5,X+1)="" THEN 
GO TO 8000 
5110 PRINT RT 


INK 2 ;"m 
(RND*31>; 


; RT 


INK 


5, k ; INK 2; ■ 

5115 PRINT RT 


T 21,0 


INK 2; " m "; RT 
IRND*31); INK 
P 


3120 PRINT TRB INT 

Blèe POKB 23692,50 
5170 LET pep+20: PRINT RT 0,0; 
UNTI “;p 

5185 LET tst-.a 

5186 IF t<l THEN GO SUB 5500 
5190 IF t<0 THEN GO TO 6000 
5200 GO TO 5030 

5500 PRINT RT 7,7; FLRSH 1;"T R 
A G U A R D O”: PAUSE 225 
5600 RETURN 

6000 CLS : BEEP .9,4: BEEP .6,3; 

PRINT AT 3,2; FLASH 1;“BRAUISSI 
HO SEI RRRIURTO RL ": FLRSH 1: P 
RINT RT 4,10;"TRRGURRDO": FLASH 
0 

6005 PRINT RT 8,13; INK 2; FLRSH 
1 ; “ . m "; RT 9,13; INK 2; FLASH 

i;“ a^;;;at 10 , 13 ; ink 2 ; flash 

6&10 BEEP .5,5: BEEP .8,02: PRIN 
T RT 13,2;"HAI UINTO LA COPPA DE 
L RALLY": BEEP .4,8 

6020 BEEP .7,5: BEEP .4,2: PRINT 

17;ìlj" 

; RT 19,13;" 

P .6,4 

6100 GO TO 9000 
8002 FOR h *1 TO 
8005 BORDER RND *7 
8010 NEXT h 

8020 CLS : PRINT AT 5,4,"HAI TOT 
ALIZZATO ";p;" PUNTI" 

8025 PRINT RT 9,14; INK 2;“ v “ 
; RT 10,14; INK 2;" *S& "; RT 11,14 
; INK 2;" 

8026 IF p >hi THEN LET hi=P 
8030 PRINT AT 15,4; FLRSH 1;"IL 
TUO PUNTEGGIO MASSIMO ": PRINT A 
T 17,9; FLASH 1,"E* DI ";hi;" PU 
NT I " 

8050 PAUSE 280 

8500 GO TO 200 _ 

9000 INPUT "PREMI ENTER PER GIOC 
ARE ANCORA"; LINE a* 

9100 GO TO 100 


;RT 18,13," X. 

: BEEP .4,6: BEE 


100 




Figura 9. Diagramma a blocchi del programma Rally 
Safari. 
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Due Riviste famose, specializzate, 
informatissime 

BIT - PERSONAL SOFTWARE 

Due volumi preziosi per chi vuole 
approfondire la conoscenza del suo 
computer 


COUPON D'INFORMAZIONE 


INTERFACCIAMENTO 

DELL’APPLE 

196 pagine 
Cod. 334B 
Lire 14.000 


APPLE II Guida 
all’uso 
390 pagine 
Cod. 331P 
Lire 26.000 


DatkJaro ricevere un numero omaggio di □ BIT - □ PERSONAL SOFTWARE 
Inaiente a maggiori informazioni tulle condizioni di abbonamento 


INVIATEMI CONTRASSEGNO 


codice 


Prezzo unitario 


Prezzo totale 


n copie 


L. 14.000 


Una sola firma prestigiosa per chi si interessa 
di informatica e di elettronica 


334B 


331P 


L. 26.000 


contributo fisso spese di spedizione 


L. 2000 


Totale 


Attenzione compilare per intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in busta chiusa a: 

GRUPPO EDITORIALE JACKSON 

Divisione Libri 

Via Rosellini, 12 - 20124 Milano 


Nome 


Cognome 


Città 


Prov 


Cap 


GRUPPO 

KDVTORIAU 

JACKSON 


Data 


Firma 


Spazio riservato alla Azianda. SI richiade I emlsslona di fattura 
Partita I.V.A. 1 1 1 1 J_ I 1 1 1 I 1 











































M usic 4.2 per C 64 



Per sonorizzare 
qualsiasi programma 
senza interromperne 
l’elaborazione 


di Mirko Gremes 



E ben noto che il CBM 64, 
grazie all’adozione di un 
apposito LSI, ha delle ca¬ 
pacità sonore molto interessanti. 
Manipolando adeguatamente i regi¬ 
stri di tale integrato, magari con del¬ 
le routine in linguaggio macchina 
(per ovvie ragioni di velocità), si 
possono ottenere dei graziosi moti- 
vetti, o dei piacevoli effetti sonori, 
che inseriti in un qualsiasi program¬ 
ma, lo renderebbero meno monoto¬ 
no e senz’altro più pratico se la so¬ 
norizzazione non avenisse in modo 
casuale. 

Music 4.2 non solo permette di ri¬ 
produrre brani o effetti sonori, ma 
anche di farlo contemporaneamente 
ad un qualsiasi altro programma, 
senza cioè interromperlo o rallen¬ 
tarlo se non in modo praticamente 
impercettibile. 

La routine ha le seguenti caratteri¬ 
stiche: 

• possibilità di riprodurre, oltre agli 
effetti sonori, brani musicali anche 
polifonici e politonici fino a tre voci; 
• possibilità di variare in qualsiasi 
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momento ogni parametro di esecu¬ 
zione (inviluppo, forma d’onda, vo¬ 
lume, velocità), mediante dei codici 
di controllo; 

• possibilità di ripetere parti dei 
blocchi dati senza doverli riscrivere 
(ritornello). 

A tutto ciò si uniscono i vantaggi 
dell’uso del linguaggio macchina, 
che in questo caso sono: velocità di 
esecuzione anche molto elevate, per¬ 
fetta contemporaneità di eventuali 
accordi. 

Le note musicali vengono codifi¬ 
cate mediante due numeri, di cui il 
primo indica l’altezza della nota (si 
veda il manuale ove è riportata la 
tabella relativa), e deve essere com¬ 
presa tra “ 1 ” (Do # 0) e “89” (Fa 7), 
e il secondo, la durata della nota 
espressa in sessantaquattresimi. 

Per variare i parametri d’esecuzio¬ 
ne, sono disponibili i seguenti codi¬ 
ci, che dovranno essere inseriti al 
posto della nota relativa alla voce 
per la quale si vuole ottenere il cam¬ 
biamento: 

255 Quando la routine incontra 
questo dato al posto di un codi¬ 
ce nota, si predispone a leggere i 
5 dati successivi, che inserirà nei 
registri del SID col seguente or¬ 
dine: 

• forma d’onda (16,32,64,128), 

• duty cycle LO (0/255), 

• duty cycle HI (0/15), 

• attacco/decadimento 
(A+D*16), 

• sostegno/rilascio (S+R-*16). 
254 II dato successivo a questo, vie¬ 
ne inserito nel registro del SID 
che controlla il volume. 

253 II dato seguente indica il ritardo 
che scandisce la lettura dei dati 
(1/64); 1 corrisponde alla velo¬ 
cità di esecuzione più elevata, 
255 a quella più lenta. 

252 Indica la fine del brano. 

251 I tre dati successivi indicano ri¬ 


spettivamente quante volte ripe¬ 
tere una parte del blocco dati 
(1/15), e il numero di dati che 
devono essere ripetuti 
(H^256+L). 

Non ci si deve comunque preoc¬ 
cupare, in quanto la codifica dei 
brani musicali avviene automatica- 
mente usando il programma Music 
Editor presentato il mese scorso. 


Descrizione della routine 

È possibile suddividere la descri¬ 
zione di questa routine, in tre parti 
principali: 

1) ricerca e controllo di un brano 
musicale o effetto sonoro all’interno 
di un blocco dati; 

2) lettura dei dati, loro elaborazio¬ 
ne, controllo dei registri del SID; 

3) meccanismo che permette di svol¬ 
gere le operazioni del punto “2”, 
contemporaneamente ad un qual¬ 
siasi programma. 


Ricerca e controllo 

Dall’indirizzo 40550 a 40658, è 
posta una routine che ricerca e con¬ 
trolla se esiste il blocco dati relativo 
al numero inserito nella locazione 
87. 

I dati delle note e i codici di control¬ 
lo, vengono memorizzati a partire 
dalla locazione 40368 all’indietro: è 
possibile così aggiungere quanti dati 
si vogliono, con l’unico limite dato 
dallo spazio lasciato libero dal pro¬ 
gramma BASIC che ospita questa 
routine musicale. 

Ovviamente per evitare deleterie so¬ 
vrapposizioni, è necessario limitare 
la memoria usata dal BASIC al di 
sotto dell’ultimo dato usato da Mu¬ 
sic 4.2. Ciò non deve per niente im¬ 
pensierire, in quanto l’aggiustamen- 
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to dei puntatori di fine BASIC av¬ 
viene automaticamente. 

Questa routine di ricerca e control¬ 
lo, a partire dal dato memorizzato 
nell’indirizzo più alto, preleva e con¬ 
trolla i dati tramite un contatore al- 
l’indietro. Ogni volta che viene in¬ 
contrato il codice “252” (fine bra¬ 
no), viene decrementata la locazione 
87; questo si ripete finché essa non 
vale 1. 

Il contatore usato per il prelievo 
dati conterrà l’indirizzo dell’ultimo 
“252” trovato; l’indirizzo successi¬ 
vo (quello più in basso, perché stia¬ 
mo contando all’indietro), sarà 
quello ove inizia il brano richiesto. 
Prima però di passare questo indi¬ 
rizzo alla fase successiva del pro¬ 
gramma, per evitare spiacevoli bloc¬ 
chi della macchina, viene controlla¬ 
to se effettivamente tale brano esi¬ 
ste. Infatti senza questo controllo 
non è possibile sapere se all’indiriz¬ 
zo trovato, inizia un brano, o se il 
codice “252” per ultimo incontrato 
si riferiva all’ultimo brano memo¬ 
rizzato. 

Tale controllo consiste semplice- 
mente nel ricercare il codice “252” 
di quest’ultimo brano. Se questo co¬ 
dice non viene trovato, vuol dire che 
il brano non esiste per niente, e si ha 
un ritorno al BASIC senza che nulla 
avvenga. 

Riassumendo, si tenga presente che: 

1) è possibile inserire quanti brani si 
vogliono, compatibilmente con la 
memoria lasciata libera abbassando 
i puntatori di fine BASIC; 

2) non importa quale sia la lunghez¬ 
za del brano (o effetto sonoro) e 
tantomeno il suo indirizzo di inizio; 

3) se si richiede un brano inesistente, 
la routine se ne accorge e non accet¬ 
ta la richiesta; 

4) per ascoltare un brano musicale, 
basta specificare il numero relativo 
nella locazione 87 e richiamare la 


routine con SYS 40550 (POKE 
87,X: SYS 40550). 

Vorrei a questo punto aprire una 
parentesi per spiegare, anche se in 
modo superficiale, il significato del¬ 
la frase “abbassare i puntatori di 
fine BASIC” o simili, tanto ovvie 
per gli “addetti ai lavori”, quanto 
invece misteriose per i nuovi e in¬ 
esperti utenti. Tale concetto non è 
specifico del 64, ma riferibile a molte 
macchine oggi in commercio. 

Trascurando ora per semplicità il 
doppio indirizzamento di alcune 
aree di memoria del 64, possiamo 
dire che la distribuzione dei due tipi 
di memoria (RAM e ROM) è la se¬ 
guente: da 0 a circa 41000 c’è la 
RAM, oltre e fino a 65535, c’è la 
ROM e i registri di controllo del VIC 
2, del SID, I/O, ecc. 

A noi interessa solo la prima parte, 
cioè la RAM, che viene usata in par¬ 
te dal sistema operativo, e il rima¬ 
nente dal BASIC. Due coppie di lo¬ 
cazioni (43/44 e 55/56) indicano do¬ 
ve inizia e dove termina l’area di 
memoria destinata al BASIC. 
Quando per applicazioni particolari 
è necessaria ulteriore memoria 
RAM, modificando le locazioni di 
inizio e fine (puntatori), si possono 
creare degli spazi prima e/o dopo 
l’area BASIC. Se scrivessimo nella 
coppia di locazioni 55 e 56 il numero 
30000, l’interprete BASIC verrebbe 
informato che deve limitare la me¬ 
morizzazione di dati BASIC all’in¬ 
dirizzo 30000 anziché 40960. Viene 
creata cosi una fascia di 10960 byte 
disponibili e protetti dalla scrittura 
di dati BASIC. E ovvio che se scri¬ 
vessimo a partire dall’indirizzo 
30000 dei dati o dei programmi in 
linguaggio macchina senza limitare 
l’area BASIC, andremmo ad altera¬ 
re il delicato formato di memorizza¬ 
zione del BASIC con conseguente 
blocco della macchina. 


Sono molti i casi in cui è necessa¬ 
ria della memoria RAM liberamente 
usufruibile, ad esempio per ripro¬ 
grammare i caratteri, o per creare 
una memoria video ad alta risolu¬ 
zione, per programmi in linguaggio 
macchina, ecc. 


Funzionamento simultaneo 
con altri programmi 

Vediamo ora come sia possibile 
ottenere il funzionamento simulta¬ 
neo di due programmi, in modo da 
poter utilizzare il procedimento an¬ 
che per programmi diversi da quello 
musicale descritto in questo artico¬ 
lo. 

Come si sa, nel 64, un CIA (versione 
potenziata dei VIA) provvede a ge¬ 
nerare una richiesta di interruzione 
(IRQ) ogni sessantesimo di secondo. 
Questo serve per interrompere mo¬ 
mentaneamente il programma prin¬ 
cipale e per svolgere, tra l’altro, due 
importanti compiti: uno è incremen¬ 
tare l’orologio interno (accessibile 
dal BASIC mediante le variabili TI e 
TI$), l’altro di scandire la tastiera e 
depositare gli eventuali dati letti nel¬ 
l’apposito buffer. 

Ma vediamo l’esatta sequenza degli 
eventi: 

se il flag “I” del registro “Status” 
(contenuto nel uP) è settato, la ri¬ 
chiesta di interruzione viene accolta, 
il programma in corso viene inter¬ 
rotto, e vengono lette le locazioni 
65534 e 65535 che contengono l’in¬ 
dirizzo nel quale iniziano le routine 
di interrupt. 

Nel 64 questo indirizzo è 65352, do¬ 
ve troviamo una “Save routine”, 
che serve a memorizzare tutti i regi¬ 
stri della CPU nello STACK, e alla 
fine un’istruzione di salto indiretto 
alla locazione 59953 tramite le loca- 










zioni (situate in RAM) 788 e 789; ed 
è proprio da quest’ultimo indirizzo 
che, in pratica, iniziano le vere e 
proprie routine di interrupt. 

Quando viene chiamata “Music 
4.2”, modificando il contenuto delle 
locazioni 788 e 789, viene spostato 
l’indirizzo di inizio da 59953 a 40932 
dove è memorizzata appunto Music 
4.2. 

Ogni sessantesimo di secondo, viene 
perciò chiamata questa routine, la 
quale dopo aver svolto le operazioni 
di lettura delle note e inserzione dei 
relativi valori nei registri del SID, 
rimanda la prosecuzione della ela¬ 
borazione all’indirizzo originale 
(59953). 

Da tutto questo discorso si può fa¬ 
cilmente dedurre che in pratica la 
routine descritta non funziona con¬ 
temporaneamente, bensì a brevi in¬ 
tervalli alternativamente al pro¬ 
gramma principale. Infatti la CPU 
non può che svolgere un compito 
per volta; vista però la velocità ele¬ 
vatissima con cui si svolge questa 
alternanza, l’apparenza è quella di 
simultaneità. 

Music 4.2 usa in pagina zero 12 
locazioni di memoria (87, da 163 a 
171, 177, 178) normalmente usate 
per l’RS 232; non è perciò possibile 
usare il registratore, la stampante o 
il floppy, contemporaneamente ad 
essa. Questa è l’unica limitazione 
che impone la routine, dovuta alla 
difficoltà di reperire locazioni di¬ 
sponibili in pagina zero. 

Anche se questa eventualità è piut¬ 
tosto relativa rispetto alla sua utilità 
pratica, occorre precisare che, men¬ 
tre Music 4.2 sta funzionando, è 
possibile anche listare o modificare 
un programma. 

Lettura e decodifica dei dati 

Senza scendere nei particolari di 
questa routine, che richiederebbe 
troppo spazio e cognizioni specifi¬ 
che sul linguaggio macchina, si può 
riassumere il funzionamento nel se¬ 
guente modo: ogni volta che si ve' - *- I 
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fica una richiesta di interrupt, ossia 
ogni sessantesimo di secondo, e na¬ 
turalmente se questa parte di routi¬ 
ne è abilitata, viene decrementato 
un contatore; ogni volta che questo 
arriva a zero, viene effettuato un ci¬ 
clo di lettura note, e il contatore 
viene ricaricato con il valore che de¬ 
termina il ritardo voluto. Questo in¬ 
dica in pratica quanti sessantesimi 
di secondo dura ogni sessantaquat- 
tresimo. 

Possiamo paragonare questa parte 
di programma ad un generatore di 
“Clock” che in un orologio scandi¬ 
sce il tempo. 

Ad ogni impulso (quando il con¬ 
tatore arriva a zero), vengono decre- 
mentati i tre contatori relativi alle 
voci; nel caso che uno o più di questi 
arrivino a zero, vengono letti due 
nuovi dati: il primo indica il numero 
della nuova nota, e il secondo, la 
durata espressa in sessantaquattre- 
simi. Quest’ultimo valore viene cari¬ 
cato nel contatore relativo a quella 
voce. Il primo dato viene convertito 
tramite una tabella nei due valori 
LOFREQ. e HIFREQ. da inserire 
nei registri del SID. Questa tabella è 
posta nell’area di memoria che va da 
40369 a 40549. 

Se al posto di un codice nota viene 
letto un codice di controllo, i dati 
successivi vengono inseriti in altri 
registri come specificato in prece¬ 
denza. 

Tutto questo ciclo si ripete finché 
non viene incontrato il dato “252” 
che indica la fine del brano. Viene 
chiamata a questo punto una sub¬ 
routine che ripristina le locazioni 
usate in pagina zero, nonché i pun¬ 
tatori di inizio delle routine di inter¬ 
rupt. 


Caricamento della routine 

Tra i vari sistemi che si possono 
usare per caricare dei dati in memo¬ 
ria, ne verrà descritto uno tra i più 
semplici che richiede l’uso dei 
floppy. 

Su un disco si memorizzerà il pro¬ 


gramma Music Editor, che serve a 
trascrivere brani musicali in dati, i 
quali vengono archiviati, sempre su 
questo disco, sotto forma di file. 
Ancora sullo stesso disco, si salverà 
il programma BASIC di supporto 
alla routine Music 4.2, il cui listato 
appare in queste pagine. 

Questo permette di ascoltare e sele¬ 
zionare i brani, effetti o motivetti 
precedentemente archiviati, che ver¬ 
ranno usati per sonorizzare un qual¬ 
siasi altro programma. 

A questo punto si tolga dal drive 
questo disco e si inserisca quello su 
cui è memorizzato il programma da 
sonorizzare. Su questo ultimo disco 
verranno automaticamente riversati 
i dati della routine Music 4.2, i codi¬ 
ci dei brani scelti dall’archivio e la 
tavola di conversione sottoforma, 
questa volta, di un unico file sequen¬ 
ziale. 

All’inizio del programma ospi¬ 
tante si scriveranno le seguenti linee 
che permettono di trasferire questo 
file nella memoria del 64: 

10 OPEN 1, 8,2,“IO: MUSIC 
42,S,R”: INPUT # 1,T:HI% = 
T/256: LO = T-(256 ★ HI%) 

20 POKE51 ,LO:POKE55, 
LO:POKE56, HI%:POKE52, 
HI%: AA = 40955 
30 INPUT# I ,T:IF T < 0 THEN 
CLOSE l:GOTO 40 
35POKE AA,T:AA=AA-1: 

GOTO 30 
40 REM SEGUE 
PROGRAMMA 

Come già detto, ogni qualvolta si 
desideri far eseguire un brano, basta 
scrivere l’istruzione POKE 87,X : 
SYS 40550, dove X è il numero del 
brano che si vuole ascoltare. 

11 programma BASIC ospitante la 

routine Music 4.2, per la sua sempli¬ 
cità, non merita commenti, resterà 
all’operatore l’accortezza di inseri¬ 
re, a partire dalla linea 250, i nomi 
dei brani inseriti nel file. ■ 







Music 4.2 per C 64 


Figura 1. lì listato Music 4.2. 


1 rem **************** 


2 rem * * 

3 rem * music 4.2 * 

4 rem * * 

5 rem * by * 

6 rem * * 

7 rem * mirko 9remes * 

3 rem * * 


9 rem **************** 

1.8 poke56■■ 36 • Poke52.• 36 : Poke51,0 : pcke55.. 0 ; dimno* 30> : ***40366 : Pokel66, 0 
15 p rintchr*<8>chr*< 14>chr*<156>chrt< 147> : Poke53280 . i =Poke53281, 1 : goto 1.550 

17 remi- 

18 rem calcola. i valori delle note 

19 rem- 

20 r=2 H 1 /12 > ■ v=440/ <29*256+60> ' Fort*1 fco89 : bz= < r tt > * 16-. 35 

30 hh*int <hz/x> : hiK*hh/256 : l o2=hb- <hi 14*256> : Poke48369+t , l oJi : Pok e40459+t, h i V. '■ next 
48 f ort=40550to48955 : readd : P ok et, d r next : Fort* 1 to30 : re-acino* (! t ) '• next 

67 rem- 

63 rem menu. P r i nc i P * l e 

69 rem- 

78 print"H"sprintil* : prìnttabC15>"Menu brani":Print!I* : Print 
75 ca* 1 : fort*0to 14 : f'ory —Sto 1 

85 printtab'1 y*20)" C "chr*<ca+63>" 3"; : printtab<y*20+4>nc*<ca> ; 

90 ca=ca+i5 : next ; Print : ca=ca—29 : next : Print 

95 Print11* : Print : Printtab (. 51' " 'FI ' Fine"tab<26? "IBSceSl i 3" 

97 remi- 

98 rem dati Pro9. l.m. 

99 rem- 

108 
185 
118 
115 
120 
125 
130 
135 
140 
145 

159 
155 

160 
165 
170 
175 

180 

-I C;K; 

190 
195 
200 
205 
219 


005 

247 

248 

249 

250 
260 
270 
280 


d*t*216 
data141 
data 1.65 
data196 
da ta133 
data. 165 
data20.' : 


120 , 169 .. 234 , 141 , 21 , 3 , 169 , 49 , 141 , 20 , 3 , 88 , 24 , 169,0 

1 . 212 . 141 . 8 . 212 . 141 . 15 . 212 . 169 . 157 . 133 . 166 . 169 . 176.133 
165 , 165 , 72 , 165 , 166 , 72 , 160 , 0 , 177 , 165 , 32 , 238 , 159 , 164,165 
55 , 208 , 15 , 164 , 166 , 196 , 56 , 208 , 9 , 104 , 104 , 169 , 0 , 133 , 165 

166 . 96 . 201 . 252 . 208 . 224 . 198 . 87 . 208 . 29 . 104 . 133 . 166 . 104.133 

162 , 1 , 134 , 164 , 134 , 171 , 134 , 178 , 134 , 168 , 134 , 167,169 , 228,141 
?, 169 , 159 , 1 . 41 , 21 , 3 , 96 , 104 , 104 , 76 , 135 , 158 , 216 , 165 , 167 


data133,168,162,0,24,214,164,208,23,181,163,157,4,212,168,8 
data 177, 165, 39,238, 159,2010,288,18,177, 165,32,238, 159, 149,164 
data76,211,159,201,253,208,10,177, 165,32,238, 159,133, 167,76,228 
data 158,201,255,208,42, 177, 165,32,238,159,149,163,177, 16532,238 
data159,157,3,212,177.165,32,238,159,157,2,212,177,165,32,238 
data 159.157,5,212,177,165,32,238,159,157,6,212,76,228,158,281 
data254,288, 1.1,177.165, 32,238, 159, 141,24,212, 76,228/158,201,251 
dat*20* ,69, 165, 169, 41,240,208., 13,177165,32,238, 159, 105,240,24 
data133,169,76,104,159,32,238,159,199,169,165,169,201,240,240,26 
data160,0,177,165.82,238,159,72,177,165,32,238,159,101,165,133 
data 165,104,101,166,133,166,24,76,228,158,32,238,159,32,238,159 
datai 69,1,133,169,76,228,158,281,252,288,37,169,8,141,4,212 
data. 141, 11,2.1.2, 141, 18,212, 162,9,149,162,202,288,251,133,177.16.9 
data60, 133, 1 78, 169, 234, 141., 21. ,3, 169,49, 1.41,20,3,76,49,234 
da ta 168,1 *5, 177, 157,1.57,0, 212, 185,11,158, 157,1,212, 1.60,0,177 
data 165,32,238,159,149,164,169,1,21,163,157,4,212,138,105,7 
da.ta.20 1,21,298,3,76,228, 159, 178,24, 160,8,76, 219, 158, 198, 168 
data.288,3, 76,211, j. 58,76, 49, 234,72, 198, 1.65, 165,165,201,255,208 
dat*2,198,166,104,24,96 

rem- 

rem nomi dei brani 

rem- 

data "brano 1","brano 2","brano3","brano 4","brano 5" 
data,, 
data,,, 
data, ,, 
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Music 4.2 per C 64 


Seguito listato Music 4.2. 


285 data.. .■ .. 
298 data, ,, 
295 data,,..,.. 
508 rem- 


50 5. ren 9et i n9 

502 rem-—-—— 

503 ifPeek < 166>O0then503 
505 I.ia j 1190 . ?55 , pi : Oett* 

509 ift*= 1, ?«"then 050' ' 

510 mr°a«c<t* > —63 : i fr>r< 1 omr>30then505 

51.1. if'no*<nrther-505 

51.3 i Pnr<l 6then# »nr#40+1.60+1.024+4 : 9osub800 
51 .6 i f -or> 1.Sthen# = <nr— i 5 '• #40+1.68+1024+24 : 9osub800 
51.8 i f no* <nr > = " " then505 

520 9osub350 : p rint" W Fi•' Per escludere e •' T. ' Per inserire 1 

525 fort*0to30 : 9ett*:ift*0""then540 

530 next : poke 1.945.. 197 : p ok e 1.965.. 73 : fori— 0to99 : 9ett* 


537 next : P ok è 1.945.. 69 : P ok e 1965 • 201'9oto525 
540 i f t*= " e " thenP ok e 1945, 197 : p ok e 1.965.. 73 : cb=cb-1 
550 i f t*= " i " thenP ok e i. 965,201 : P ok e i 945,69: 9oto70 
560 9oto525 

800 rem- 


'.a*PP : 9oto70 


001. ►-■em reverse marker 

802 rem- 

810 i 6 9<20241henfort*01o14 : m—Peek <t+4 ? ' PokeCt+9 > > mori20 • next : return 

847 rem™——— ---- 

848 rem, crea il -Pile 

849 rem- 

850 Pr:nt"W"11 * : print:Print" Inserisci i1 dieco con i1“ 

960 p rint:P rint"p ro9ramma teasic osPitante." 

870 pi nt : Pri nt 11*"aSBI" 

880 P r i ntt ab <! 50•"Premi un tasto Quando hai finito" 

885 print"stna"ii*";sr 

990 ws i 1198 .■ 255,0:p ok e 1.98,0 

900 oPen 1 .• 8 » 2.' " i 0 : mu.si c 42 ■ s 1,. 1 " • pr int# 1 .• aa1 ; t —40955 
910 d!X=Peek <t> '• if t=aathenpr int# 1-1 '• c 1 ose 1 : Pr i nt-c^r*< 1,47> : end 
915 p r i nt# 1, dK : t=t-1 : 9oto91.0 

947 rem- 

948 rem 1.e99i file brani 

949 rem- 

950 oP en I ., 8 1 2.. 11 i 0 : " +no* < nr !>+" .. s.. r " : p p =aa : cb®cb+1. 

952 input#! t '■ Pokeaa .. t : i f t = 252thena.a®as — 1 : 9oto960 
955 a a « a a - 1 : 9 o t o 9 5 2 

960 c 1 ose 1 : fort @ 1.63to 1P" 7 : p ok et .■ 0 : next: p ok e87.. cb ; sa s40550 : return 

1547 rem- 

1548 rem intestazione 

1.549 remi- 

1550 f ort=0to38 :1.1. *= 11 *+ " -" : next 
.1.560 f ort=0to2 : P r ì nt 11 * : next : P r i nt 

1565 Print"— Questo Programma serve Per creare —Print 

1.570 Print"— un file contenente i dati di-"'Print 

1575 P r i nt "-MUSIC 4.2-" 1 P r i nt 

1580 Print"- E' Possibile ascoltare i dati-Print 

.1.590 Print"— e scegliere i brani che si vo9l tono - " : Print 

1.600 print"— inserire nel. file, -Print 

1.605 f ort=0to4 ; P r i nt 11 * : next 

1610 Pri nt "-9TTENDI-" : P r i nt 11*: .goto 20 
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PERCHÈ UNA NUOVA DATA? 

Per una ragione più che valida: VIDEO GAMES USA entra a 
far parte di BIT USA, la prestigiosa mostra di home e personal 
computer americani. E l'edizione '84, arricchita dalla presenza 
dei videogiochi, sarà più interessante che mai! . 

NON DIMENTICATE DUNQUE di visitare la sezione Videogiochi > 
di BIT USA 84, dal 22 al 26 maggio, presso il Centro ’>j 

Commercidle Americano. 


CENTRO COMMERCIALE 


Via Gattamelata 5, 20149 Milano 

Tel. (02) 46.96.451 Telex 330208 USIMC- 


La mostra è realizzata in collaborazione con le riviste 

del Gruppo Editoriale Jackson. 















































































































Dal BASIC 
—al Pascal— 


— Parte quinta — 


Uno schema di programma 
e un esempio 


a cura della Redazione 


n programma scritto in Pascal ha una strut¬ 
tura ben definita (come potreste indovinare 
basandovi su quello che sapete degli scopi e 
della filosofia di Wirth). L’ordine deve essere seguito 
esattamente, ma si può omettere qualunque parte se 
non serve. Ciò che segue è uno schema: 


PROGRAM NOME ( INPUT ,OUTPUT ,F ILE 1 ,F ILE l * 1 > » 

I ABEL 


C0NS1 

PI=3.14159265; 

IYPE 

C>I ORNODLl.LASETT IMANA- < LUN . MAR t MER, 

GIÙ,VEN.SAB,DOMI ; 

VAR 

GI ORNO:GIORN0DELLASETTIMANA j 
LAVORATIVI :CLUN..VENI; 

’NsINTE6ER; 

H,L,0: BOULEAN» 

FILETTO» ARRAYf1 .. 3 , 1 . .33 OF INTEGER; 


PROCEDURE NOMEPROr; (LISTA PARAMETRI); 
LABEL 
CONST 
TYPE 
VAR 
BEGIN 


END; 


UEGIN 


NOMEPROC 1 ; 

N0MEPR0C2; 

WRITELN (RISULTATI); 

NÙMEPRUC3 (PARAMETRI); 

VARIABILEi-FUNCTION (PARAMETRI); 

END. 


Non posso più nascondervi la verità. Il Pascal ha 
un’istruzione GOTO. Talvolta è più strutturato usa¬ 
re un GOTO per abortire un ciclo quando si scopre 
un errore, che evitarne l’uso. Parleremo di questo un 
po’ più avanti. Ci sono molte cose di cui dobbiamo 
parlare, che riguardano la struttura di un program¬ 
ma. Prima di tutto, gli spazi sono ignorati dal compi¬ 
latore e quindi possono essere usati liberamente per 
separare le parole, permettendo una più facile lettu¬ 
ra. Gli spazi, naturalmente, non possono essere usati 
in mezzo agli identificatori o comandi. Le righe in 
bianco sono anch’esse ignorate dal Pascal, e possono 
essere impiegate per separare gruppi funzionali di 
istruzioni del programma. I commenti possono tro¬ 


varsi ovunque sia permesso uno spazio, ma di solito 
non ha senso usarli in mezzo ad una riga dove c’è 
un’istruzione. 

Le variabili dichiarate all’inizio del programma 
prima della prima procedura si chiamano variabili 
globali. I riferimenti a queste variabili sono validi 
ovunque nel programma e nelle procedure. Le varia¬ 
bili dichiarate all’interno di una procedura sono vali¬ 
de solo all’interno di quella procedura e si chiamano 
variabili locali. Un’eccezione alla regola delle variabi¬ 
li globali è che quando una variabile in una procedu¬ 
ra è dichiarata con lo stesso nome di una variabile 
globale, essa diventa una variabile nuova e locale 
all’interno di quella procedura (a meno che non sia 
passata a quella procedura come parametro). 

Una procedura può essere contenuta dentro un’al¬ 
tra procedura. Le sue variabili sono locali ad essa. Le 
variabili della procedura esterna le sono disponibili, 
così come lo sono le variabili globali. Alcuni sistemi 
non permettono una nidificazione delle procedure. 
Qualsiasi procedura può chiamare qualsiasi altra 
procedura che sia stata dichiarata in precedenza. 
Questa regola elimina i cosiddetti riferimenti in avan¬ 
ti. In verità, ciò è troppo semplificato. Può sorgere 
una condizione in cui due procedure si devono chia¬ 
mare (in un programma ricorsivo). In questa situa¬ 
zione, il Pascal ha un modo in cui si può dichiarare 
parzialmente una procedura (si dà il suo nome e il suo 
elenco dei parametri) e poi anziché scrivere il resto, si 
usa FORWARD, per indicare che si dichiarerà dopo. 
Questo permette i riferimenti in avanti dicendo “Ho 
intenzione di dichiarare questa procedura più tardi”. 
Potete vederlo come un modo furbo di aggirare i 
riferimenti in avanti. Wirth fece molto lavoro per 
strutturare il linguaggio in un modo tale da rendere 
più facile l’uso del compilatore. Una funzione ha la 
stessa struttura di una procedura. Le procedure, le 
funzioni e i programmi sono chiamati blocchi. 

Un esempio di programma 

Bene, siamo quasi arrivati alla fine dei preliminari. 
Ci sono naturalmente degli aspetti del Pascal di cui 
non abbiamo ancora parlato. 

Tuttavia, arriva un momento nel quale è più interes¬ 
sante cominciare a programmare, ed è ora. Il pro¬ 
gramma 6.1 è un gioco chiamato “Reverse”. Notate 
che REVERSE è stato scritto in modo che il numero 
di numeri nell’elenco è determinato dal valore di N. N 
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naturalmente non deve superare la dimensione del 
vettore A che è 20. Incominciamo dall’inizio. 

PROGRAM REVERSE <INPUT,OUTPUT); 

L'ONST 

N=9; 

Ecco il titolo del programma e il numero di nume¬ 
ri. Poiché N non cambierà durante il programma, 
perchè non farne una costante? Ora, le variabili che ci 
servono. Il vettore per tenere i numeri è probabilmen¬ 
te la prima che ci viene in mente. Perchè non lo 
chiamiamo LISTA? 

Ci sono due indici, J e K, e per ora, non cambiano i 
loro nomi. Poi c’è R per l’introduzione del giocatore 
di quanti numeri sono da rovesciare. Perchè non 
chiamarlo QUANTI? La variabile Z contiene uno dei 
numeri del vettore mentre vengono scambiati. TEMP 
forse è più descrittivo di Z. Il giocatore risponde ad 
una domanda che gli chiede se vuole giocare un’altra 
partita o no. Come primo tentativo, usiamo una 
variabile CHAR RISPOSTA. La variabile T nel pro¬ 
gramma BASIC conta il numero di mosse o tentativi 
che occorrono al giocatore per mettere in ordine i 
numeri. TENTATIVI andrebbe bene. Sospetto che 
più tardi vorremo usare una variabile BOOLEAN, 
ma potremo aggiungerla quando ci arriveremo. Ora 
possiamo scrivere la sezione VAR del programma. 

VAR 

LISTA:ARRAYC1..203 OF INTEGERj <# LISTA DEI NUMERI • ) 

J ,K,TEMP: INTEGER; <• INDICI DI CICLO E DI VETTORE *) 

OUANTI:INTEGER; <« DA ROVESCIARE «> 

TENTATIVI: INTEGERj 

RISPOSTA:CHAR; 

Questo è un buon tentativo per tutte le variabili da 
usare. Per un approccio un po’ informale a questo 
problema, usiamo le sezioni del programma BASIC 
separate da commenti per le procedure principali da 
scrivere in Pascal, almeno per iniziare. C’è un proble¬ 
ma che bisogna risolvere, allora tanto vale affrontar¬ 
lo per primo. La maggior parte dei sistemi Pascal non 
ha una funzione RANDOM, allora dovremo predi¬ 
sporla in modo che fornisca un numero a caso fra 1 e 
N. Senza approfondire troppo l’argomento, il se¬ 
guente è un generatore di numeri a caso. Più tardi nel 
programma, daremo al giocatore la possibilità di 
“randomizzare” il numero “di base” della funzione. 

FUNCTION RANDOM(K:INTEGER):INTEGER; 

(* UN NUMERO A CASO TRA 1 E K *> 

BEGIN 

RANDi =RANL>/ 17; 

RAND:=RAND#19; 

IF RAND> 16384 THEN RAND: = RAND- 7 7*2/; 

RANDOM:=TRUNC(NANO) MOD K +1; 

END; <.* RANDOM *) 


Siccome dovremo rendere accessibile la variabile 
RAND dal nostro programma principale per darle 
un valore, RAND deve essere una variabile globale e 
dunque l’aggiungeremo alla nostra sezione VAR. 

RAND:REAL: 

La funzione MOD nel Pascal fornisce il resto di una 
divisione tra interi. RAND MOD N dunque dà un 
numero fra 0 e N-l. Sommando 1 a questo numero si 
ottiene il valore fra 1 e N che ci vuole. Una divisione 
per 17 e una moltiplicazione per 19 produce una serie 
di numeri casuali con un lungo periodo di ripetizione. 
Ora che abbiamo messo in funzione RANDOM, la si 
può usare per generare la lista d’inizio. 

PROCEDURE CREALI STA; 

ULiilN 

IUR » : * 1 TU N DO 
LISTACK3:=K; 

» UR I I- N DOWN IO ? DCJ 
BRG 1 N 

,J:*=RANDOM(K> ; 

TEMP : «L I STAC K 3 ; 

LISTAtKJl-L ISTAlJ J; 

LISTACJJ:-TEMPj 
END; <* FOR «) 

END; <* CREALI STA «> 

Vedete come ci siamo liberati del GOTO implicato 
nel programma BASIC alla linea 250? Questa proce¬ 
dura dapprima crea un elenco 1 ... N. Usa poi un ciclo 
FOR per assegnare i numeri casuali. Il processo è 
identico a quello del programma BASIC, compresi i 
cicli. La THEN 230 è stata eliminata dall’uso di un 
ciclo REPEAT UNTIL. 

Predisponiamo un altro spezzone di programma 
per fare il rovesciamento dei numeri. Perchè non 
passiamo il numero di numeri da rovesciare alla pro¬ 
cedura come parametro? Anche qui, il processo sarà 
uguale a quello del programma BASIC. 

PROCEDURE RIORDINA (NUMERO;INTEGER); 

fcFGIN 

FOR J:=1 TO NUMERO DIV 2 DO 
DEGIN 

rFMP:=LIS TAIJ 3; 

l ISTAL.) ) : =L I STAC NUMERO--J 1 3: 

L ISIAINUMERO—«3* 1 3: “TEMP; 

END: <* FOR *) 

STAMPALI STA; 

END: (« RIORDINA *) 

Notate che la NUMERO DIV 2 automaticamente 
produce un risultato intero uguale alla INT(R/2) del 
programma BASIC. In due posti, il programma BA¬ 
SIC ha GOSUB 610. Questa è la subroutine che 
stampa l’elenco dei numeri. È abbastanza semplice, 
ma siccome viene chiamata da due posti nel program¬ 
ma, perchè non metterla nel programma come proce¬ 
dura? In verità, dovrebbe essere chiamata da RIOR¬ 
DINA, quindi dovrebbe procedere RIORDINA, e la 
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Dal BASIC 

— al Pascal- 

penultima istruzione di RIORDINA dovrebbe essere 
STAMPA LISTA;. 

PROCEDURE STAMPALI STA; 


BEGIN 

hOh J:=l TO N DO 

«RITE (LISTAIJ 312); 

WRITELN 

END; (» STAMPAI ISTA *> 

Abbastanza semplice, stampa la lista e anche una riga 
vuota dopo di esso. Poiché lo stampare le istruzioni 
del gioco è solo una serie di istruzioni WRITE che 
possono o no essere necessarie, ha senso scrivere una 
procedura che si chiami ISTRUZIONI. 

PROCEDURE ISTRUZIONIi 
BEGIN 

WRITELN; 

WRITELNt QUESTO E'' IL GIOCO DEL "«EVERSE** > ; 
WRITELNt PER VINCERE DEVI RIORDINARE LA'>; 

WRITELNt LISTA DEI NUMERI DA 1 A ,N;2)| 

WRITELN( IN ORDINE CRESCENTE DA SINISTRA )| 

WRITELNt A DESTRA. PER MUOVERE, DEVI DIRMI )| 
WRITELNt QUANTI NUMERI (DALLA SINISTRA) >; 

WRITELNt DEVO INVERTIRE. >; 

WRITELN; 

WRITELNt SE LA LISTA E « >» 

WRITELN; 

WRITELNt'2 3 4 5 1 6 7 8 9 >; 

WRITELN; 

WRITELNt E NE VUOI INVERTIRE 4. IL RISULTATO ); 
WRITELNt SARA : >; 

WRITELN; 

WRITELNt 5 4 3 2 1 é. 7 B 9 )| 

WRITELN; 

WRITELNt E SE ORA NE INVERTI 5 HAI VINTO* )| 

WRITELN; 

WRITELNt 1 23456 7 B 9'>; 

WRITELN; 

WRITELNt PER FINIRE, BATTI O.'>» 

END; 

Certamente qui non c’è niente di nuovo. È una tradu¬ 
zione diretta della versione BASIC. Non ci rimane 
molto da fare a parte una procedura GUARDASE- 
HOVINTO. Un ciclo normale FOR funzionerebbe 
esattamente come nel programma BASIC. Comun¬ 
que, qui abbiamo una buona opportunità di usare un 
ciclo WHILE-DO e quindi uscire non appena sco¬ 
priamo una nonvincita. Questo ridurrà il tempo di 
elaborazione del programma (sebbene sia una que¬ 
stione accademica discutere della necessità di tale 
riduzione). 

PROCEDURE 6UARDASEHOVIN TO; 


BEGIN 
J; «1 ; 

VINTO;=TRUE; 

WHILE VINTO AND (J-*N> DU 


BEGIN 

IF LISTA CJJ <> J THEN VINTO;«FALSE; 
J;“J+l; 

END; (» WHIl E *> 

END; (» VEDE *) 


(« PROGRAMMA PRINCIPALE «> 

Ora sarà necessario tornare alle dichiarazioni delle 
VAR globali e aggiungere: 

VINTO:BOOLEAN; 

Ora rimane solo il programma principale che chia¬ 
merà queste subroutine. Ormai, forse avete notato 
che il programma non ha alcun GOTO ed è quindi 
abbastanza ben strutturato così com’è. Alcuni pro¬ 
grammatori del Pascal potrebbero pensare che il pro¬ 
gramma principale che segue sia troppo lungo. Il mio 
pensiero è che non esiste un altro spezzone abbastan¬ 
za grande che si possa togliere per farne una procedu- 
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ra a sé. Il programma principale fa partire il tutto e 
poi rimane in un ciclo esterno per ogni partita giocata 
e in un ciclo interno per le mosse di una partita. Ho 
messo alcune spiegazioni nel programma nella forma 
di commenti per associarle alle varie istruzioni del 
programma. Come minimo, però, una END dovreb¬ 
be sempre avere un commento che indichi di che cosa 
è la fine. Questo aiuta anche il programmatore. In un 
programma più complesso dove ci sono tanti cicli 
interminati che continuano, spesso succede che molti 
di questi terminano allo stesso punto, e un po’ di 
negligenza può causare o troppo pochi o troppi 
END. Un commento dopo ciascuno aiuta a tenere le 
cose in ordine anche per il programmatore. Il pro¬ 
gramma 6.2 è quello completo con la parte principale 
compresa. 


PROGRAM REVERSfc (INPUT,OUTPUT); 

CONSI 

N=9; 


VAR 

LISTA:ARRAYC1..201 OF INTEGER; 
J,K,TEMP:INTEGER; 

QUANTI;INTEGER; 

TENTATIVI : INTEGER; 

RISPOST A:CMAR ; 

RAND:REAL; 

VINTO:BOOLEAN; 


(• LISTA DEI NUMERI *> 

(• INDICI DI CICLO E DI VETTORE *> 
(* DA ROVESCIARE *> 


FUNCTION RANDOMIKiINTEGER):INTEGER; 


'* UN NUMERO A CASO TRA 1 E K «> 


BEGIN 

RAND:“RAND/17; 

RAND:«RAND*19; 

IF RAND>16384 THEN RAND:= RAND-7J27» 
RANDOM:=TRUNC(RAND) MQD K +1; 

END; V* RANDOM *> 

PROCEDURE CREALISTA; 


BLU IH 

)OR K : = 1 TU N DO 
LISTACK 3 :=K; 

TQR kJ» N DOWNTO 2 DO 
BEGIN 

J:«RANDOM (K); 

TEMP: «LISTARCI; 

LISTAIk D: =1.1 STAI J J ; 

LISTACJ3:=T£MP; 

END» (* FOR *> 

END; (* CREALISTA «> 

PROCEDURE STAMPALISTA; 

BEGIN 

FOR J:«l TO N DO 

WRITE (LISTACJ3:2) ; 

WRITELN 

END; (* STAMPALI STA *) 

PROCEDURE RIORDINA (NUMERO;INTEGER); 

BEGIN 

FOR J: = l TO NUMERO DIV 2 DO 
BEGIN 

TEMP:“LISTAIJI ; 

LISTAIJI:=LISTAI NUMERO-J♦13; 

LISTAI NUMERO—J ♦ 1 3;“TEMP; 

END; (« FOR *> 

STAMPALI STA; 

END; (* RIORDINA *> 

PROCEDURE ISTRUZIONI; 

BEGIN 

WRITELN; 

WRITELNt QUESTO E'' IL GIOCO DEL “REVERSE'* ) ; 
WRITELNt PER VINCERE DEVI RIORDINARE LA'); 
WRITELNt LISTA DEI NUMERI DA 1 A ',N:2>; 
WRITELNt IN ORDINE CRESCENTE DA SINISTRA )| 
WRITELNt A DESTRA. PER MUOVERE, DEVI DIRMI); 
WRITELNt QUANTI NUMERI (DALLA SINISTRA)'); 
WRITELNt DEVO INVERTIRE. ); 

WRITELN; 

WRITELNt SE LA LISTA E';'); 

WRITELN; 

WRITELNt'2 34316789); 

WRITELN; 

WRITELNt E NE VUOI INVERTIRE 4, IL RISULTATLÌ >; 
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WRITELN( SARA' ; > ; 

WRITELN; 

WRI TELN ! 5 4 *2 1 t> 7 8 9'); 

WRITELN; 

WRITELNCt SE ORA NE INVERTI 5 HAI VINTO' ); 
WRITELN; 

WRITELN<'1 2345670V»; 

WRITELN; 

WRITELN! RER FINIRE, bAffl 
END; 

PROCEDURE GUARDASEHIIVINrO; 

BEGIN 
J ; ■ l ; 

VINTO;=TRUE; 



SOFTWARE HOUSE - Casella Postale 4 
13055 - Occhieppo Inferiore (VC) 


Tel. 015/592730 


SONO DISPONIBILI 

PER COMMODORE 64 


DATA BA.SE SORG. 

Programma sorgente per la creazione di archivi; usa file relativi 
con catalogo su sequenziale-lunghezza e numero record defini¬ 
bili in BASIC non protetto con istruzioni. 

Lire 50.000 solo su dischetto. 


WHILE VINTO AND (J<=N> DO 
BEGIN 

IF LISTA IJI > J THEN VINTO;«FALSE; 

END; <• WHILE •> 

END; <* VEDE •) 

<« PROGRAMMA PR INC IP AIE *> 

BEGIN 

WRITELN; 

WRITELN! OUESTO E IL GIOCO DEL REVERSE. ); 
WRITELN! DAMMI UN NUMERO TRA I E ÌOOOO.'>; 

READLN!RAND >; 

WRITELN; 

WRI TE! VUOI LE ISTRUZIONI -’ !S 0 N) ' ) ; 

READLN(RI SPOSTA); 

WRITELN; 

IF RISPOSTA*'S 1 THEN I3TRUZIUNI; 

REPEAT 

WRITELN; 

CREALISTA; 

TENTATIVI ;=0; 

WRITELN! PARTIAMO... LA LISTA E 
WRITELN; 

STAMPALISTA; 

WR11ELN; 

REPEAT 

WRITE(QUANTI NE IN VER TO’? ); 

READLN(UUANTI); 


ALTO MEDIOEVO 

Una perfetta simulazione dell’economia medioevale. Rispetta le 
gerarchie feudali di vassallaggio e vi renderà esperti nell'arte di 
governare destreggiandovi tra guerre - carestie - epidemie - 
maltempo e innondazioni. Da 1 a 9 feudatari il migliore dei quali 
diventerà Re. Corredato di Istruzioni. 

Lira 30.000 dischetto L. 25.000 cassetta. 


ATOMO 

Gestione simulata di impianto nucleare per la produzione di 
energia elettrica. Il pieno rispetto dei parametri reali rende il 
programma oltre che un gioco un modo per capire il funziona¬ 
mento di un reattore nucleare, È la vostra condotta a determi¬ 
nare - rendimento - guasti ecc. 

Non aspettatevi giudizi molto lusinghieri [almeno all’inizio]. 

Lira 30.000 dischetto L. 25.000 cassetta 


BLACK JACK 

Gioco di carte classico con le regole del B.J. americano - il banco 
non è fisso al calcolatore ma ruota secondo le regole. 

Lire 30.000 dischetto L. 25.000 cassetta 


IF QUANTI - 0 

THEN WRITELN! NON POSSO PROPRIO FARLO ! '>; 

IE GUANI I>N 
THEN 
BEG1N 

WRIIÉLN! OOPS' TROPPI* ); 

WRITELN! NE POSSO INVERTIRE AL MASSIMO ,N:2); 
END; 

If uUANII IN l k. .NJ THEN 
BEGIN 

RIUROINA«UUANTI); 

TENTATIVI: =TENTAT IVI 1 ; 

GUARDASÉHOVINIO; 

END; 

UHI li VINTO UR (tJLlAWFl-Oii ; 
li VINTO THEN WRITELN 

i HAI VINTO IN , It.NIAI IVIi3, * TENTATIVI. ); 

WRITELN; 

WK1TI i VUU1 GIOCARE. ANCORA' (SUN) >; 

RI-ADLN (RISPOSTA) ; 

W»< i Iti Ni 

UNI IL RISPOSTA* N ; 

END. ■« PRUGRAMMA PRINCIPALE «> 


Conclusione 

Eccovi con il primo programma completo in Pa¬ 
scal, e l’abbiamo tradotto da un programma BASIC. 

Sia il programma Pascal che quello BASIC sono 
stati elaborati esattamente come sono scritti qui. È 
possibile che nessuno dei due funzioni con i vostri 
particolari sistemi di BASIC e di Pascal. Ho dovuto 
cambiare la RND(l) nella scrittura di BASIC Compu¬ 
ter Game a RND(Ò) per il mio BASIC particolare. La 
funzione RND nel BASIC non è molto standardizza¬ 
ta, e potreste avere bisogno di usare un altro argo¬ 
mento o una istruzione RANDOMIZE per avere i 
numeri casuali. Avevo una procedura RANDOM nel 
programma Pascal che funzionava in un sistema ma 
non in un altro. Quella data qui funziona in entram¬ 
bi. ■ 


TORRE DI HANOI + OTHELLO 

I - classici - finalmente anche per il Commodore 64. 

Lire 30.000 dischetto L. 25.000 cassetta. 

HIDDEN • CODE + BIORITMI 

Gioco di abilità matematica (numero nascosto) + bioritmi con 
determinazione del giorno, della settimana e grafico video. 
Lire 30.000 dischetto L. 25.000 cassetta 

DISPONIBILI GRUPPI DI CONTINUITÀ' ESPRESSAMENTE 
STUDIATI PER CBM 64. ALTRI MODELLI A RICHIESTA. MONI¬ 
TOR SCHEDE 128 IN/OUT REGISTRATORI COMPATIBILI 
COMMODORE. 

RICCO PACKAGE DI PROGRAMMI GESTIONALI 

[fatturazione condominio, magazzeno, eco...). 

A disposizione per consulenze su 

Software Applicativo - Automazione di Processi 
Soluzione dei Vs. problemi su Commodore 64 
Corsi di BASIC 
Tel. 015/592730 

In vendita anche presso 

TEOREMA - Via Losanna. 9 - Biella 


Spedire In busta chiusa a: 

BA.SE ».n.c. - Casella Postale 4 - 13055 Occhieppo Inf. (VC) 

Nome e Cognome_ 

Indirizzo_ 

Cap _ Città _ Provincia 


Ordino n° _□ Disco □ Cassetta_ 

Ordino n° Disco □ Cassetta_ 

Ordino n° _□ Disco □ Cassetta_ 

Per un totale di Lire _ 

Pagamento □ Allegato assegno non trasf. sped. celere 
□ Contro assegno + spese postali 
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POKE, PEEK 
e lo schermo dell’Apple 

di Claudio Poma 


L eggendo gli interessanti ar¬ 
ticoli sull’intelligenza arti¬ 
ficiale del N. 10-11 di Per¬ 
sonal Software ho tentato di tradurli 
per il mio Apple Ile, ma mi sono 
trovato di fronte al problema dello 
schermo. Infatti l’organizzazione 
della memoria di schermo dell’Ap¬ 
ple non segue una regolare matrice 
in relazione alla posizione del curso¬ 
re sullo schermo, ma ha una orga¬ 
nizzazione particolare che non favo¬ 
risce di certo la gestione del video 
tramite PEEK e POKE. 

Ma veniamo al problema: innan¬ 
zitutto le locazioni della Pagina 1 di 
testo e grafica in bassa risoluzione 
vanno dalla posizione decimale 
1024 alla 2047, ci sono quindi più 
locazioni di memoria di quelle ne¬ 
cessarie alla gestione dello schermo, 
che, come vedremo, non vengono 
usate dallo schermo. 

Altro problema è che il riempimento 
dello schermo non avviene partendo 
dalla prima casella in alto a sinistra 
per giungere all’ultima casella in 
basso a destra, come avviene in altri 
home computer, bensì lo schermo è 
diviso in tre fasce che vengono riem¬ 
pite a turno. Il programma n. 1, illu¬ 
stra questa situazione riempiendo lo 
schermo con dei caratteri 

Il programma n. 2 serve invece 
per iniziare a scoprire qualcosa sui 
byte in più prima citati, infatti con lo 
STEP40 della linea 20 si potrebbero 
prevedere degli $ incolonnati sulla 
prima colonna, mentre, una volta 


fatto girare il programmino, ap¬ 
paiono degli $ in vari punti dello 
schermo. Che cosa è successo? Sono 
i byte in più!! Per fortuna il loro 
inserimento durante il riempimento 
dello schermo non è casuale, ma se¬ 
gue una regola che, seppur un po’ 
complicata, una volta trovata per¬ 
mette di indirizzare lo schermo del¬ 
l’Apple con PEEK e POKE. 

Il programma n. 3 permette di ri¬ 
solvere il problema: fattolo girare, si 
vedrà una $ che si sposta sullo scher¬ 
mo saltando le righe seguendo la 
divisione in fasce prima descritta, 
inoltre sul fondo a sinistra si vedrà 
un numero che indica la posizione 
decimale della memoria schermo 
occupata in quel momento dalla $. 
Fino al termine della terza riga, che 
poi è la 17ma dello schermo, non ci 
sono problemi, poi attenzione: dal¬ 
l’ultima casella della terza riga alla 
prima della quarta (che poi è la se¬ 
conda dello schermo) c’è un “buco” 
di otto byte e la cosa si ripete all’ini¬ 
zio di ogni nuova riga della prima 
fascia. 

Questa regolarità consente di rica¬ 
vare una formula in base alla quale 
ho poi convertito il programma di 
inseguimento riportato a pag. 45 del 
n. 10-11 di Personal Software senza 
eccessivi problemi e che permette a 
chiunque di utilizzare la stessa routi¬ 
ne per situazioni più complicate co¬ 
me alcune anche pubblicate sullo 
stesso numero di Personal Software; 
ma veniamo alla conversione. 

Fino alla linea 100 non ci sono 
cambiamenti. Le 110-111 leggono il 
carattere dalla tastiera, cioè vedono 
qual’è l’ultimo tasto premuto. Le li¬ 
nee 120-135 muovono la ★ che è il 
giocatore, e precisamente S sù, X 
giù, C sinistra, V destra. Da 140 a 
170 non ci sono differenze. L’unica 
differenza della linea 180 è che qui è 
permesso al giocatore di toccare i 


muri e si perde solo quando si è 
raggiunti dal computer, rappresen¬ 
tato da una X. 

E ora veniamo al problema solleva¬ 
to inizialmente. La linea 181 riman¬ 
da ad una subroutine che determina 
in quale fascia si trova il giocatore. 
La linea 520 tratta della terza fascia 
per generalizzare la soluzione anche 
se tale fascia non è toccata dal sem¬ 
plice gioco del programma. Deter¬ 
minata la fascia vengono assegnati a 
Q3 il valore della prima locazione di 
memoria schermo della fascia in 
questione, e a XX il valore del nu¬ 
mero della linea di tale fascia occu¬ 
pata dal giocatore. Fatto questo si 
ritorna al programma dove alla li¬ 
nea 182 al valore di Q3 vengono 
aggiunti 8 punti moltiplicati per il 
numero della linea della fascia (XX) 
meno I : questo serve per recuperare 
gli 8 byte nominati in precedenza, il 
-1 serve ad annullare aggiunte 
quando il giocatore si trovi sulla pri¬ 
ma linea di ogni fascia in quanto il 
conteggio per la prima linea di ogni 
fascia avviene in modo regolare. La 
linea 183 conclude il conto del valo¬ 
re della locazione di memoria scher¬ 
mo occupata dal giocatore aggiun¬ 
gendo il valore della colonna (Y) e il 
valore delle locazioni occupate dalle 
linee precedenti e che non sono quel¬ 
le poste in posizione superiore sullo 
schermo, ma quelle che precedono, 
in valore di posizione schermo, il 
punto occupato dal giocatore (il 40 
rappresenta il numero di posizioni 
di ogni riga e il 3 è dovuto alle tre 
fasce in cui è suddiviso lo schermo e 
che fanno in modo che la seconda 
riga dello schermo sia, in effetti, la 
quarta nella memoria schermo e 
quindi maggiore di 3 volte 40 la po¬ 
sizione in memoria schermo rispetto 
alla prima riga della stessa fascia. 

Le 184-187 fanno tornare il gioca¬ 
tore nella posizione precedente 
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quando la sua mossa lo ha portato 
sul muro. Il resto è identico al pro¬ 
gramma originale salvo un’aggiunta 
per il record. 

Per poter quindi indirizzare lo 
schermo dell’Apple II tramite PE¬ 
EK e POKE bisogna determinare la 
fascia e la riga della fascia occupate 
dal punto in questione (come da 
500-520) e quindi calcolare il punto 
come dalle linee 182-183. Queste, 
nel programma, sono state tenute 
separate per comprendere meglio il 
loro significato, ma ora possiamo 
riassumerle in un’unica formula più 
veloce da trascrivere in ulteriori pro¬ 
grammi: 

Q1 = Q3 + 8 ★ (XX — 1 ) + Y +40 ★ 
((XX - I) ★ 3) 

che tradotta sta per Valore locazio¬ 
ne memoria schermo = VAL. LOC. 
MEM. SCH. del primo punto della 
fascia occupata + 8 punti per ogni 
riga superiore alla prima della fascia 
+ colonna + 40 per 3 per il numero 
della linea di fascia occupata dimi¬ 
nuita di uno. 

La formula può essere ulterior¬ 
mente semplificata raccogliendo il 
valore (XX-I). Fatto questo si avrà: 

Q1 = Q3 + Y + (XX — 1 ) ★ (40 ★ 3 
+ 8) e poi Q1 = Q3 + Y + 128 ★ 
(XX - 1). 

Capito il discorso e pronta la formu¬ 
la non dovrebbero esserci problemi 
per costruire giochi di movimento 
più complessi: per esempio, questo 
semplice gioco può essere arricchito 
con pochi cambiamenti delle prime 
linee che facciano in modo di far 
ricoprire tutto lo schermo dal labi¬ 
rinto e il gioco funzionerebbe senza 
ulteriori cambiamenti, poi si potreb¬ 
be fare in modo che l’inseguitore 
ricostruisca il muro attraverso il 


quale passa, poi... ad ognuno lo svi¬ 
luppare tutte le varianti ed espansio¬ 
ni che gli vengono suggerite dalla 
propria creatività. Arrivederci. _ 


1 

REM *« 

PROGRAMMA N.1 ** 

10 

HOME 


20 

FOR T = 

1024 TO 2047 

30 

POKE T, 

164 

40 

NEXT 



Listato 1. Il programma riempie lo 
schermo con $ evidenziando la divi¬ 


sione in fasce. 


1 

REM ** 

PROGRAMMA N.2 ** 

10 

HOME 


20 

FOR T = 

1024 TO 2047 STEP 40 

30 

POKE T, 

164 

40 

FOR N - 

1 TO 300: NEXT 

50 

NEXT 



Listato 2. Perché i $ non sono inco¬ 
lonnati? 


1 

REM «* PROGRAMMA 

N. 3 ** 

10 

HOME 


20 

FOR T = 1024 TO 2047 

30 

POKE T,164 


40 

UTAB 20: PRINT T 


50 

FOR N = 1 TO 300: 

NEXT 

60 

POKE T,160 


70 

NEXT 



Listato 3. Osservate bene il conteg¬ 
gio e l’organizzazione di schermo non 
avrà più segreti. 


5 HOME 
7 SPEED= 255 

10 PRINT "################" 

20 FDR C = 1 TO 8 
30 PRINT "tt # # #" 

40 NEXT 
50 PRINT 

55 VTAB 3: HTAB 25i PRINT "Record : "RE 

éO A = 7 

70 B = 14 

80 X = 2 

90 Y = 2 

93 P = 0 

95 SPEED= 150 

100 UTAB X: HTAB Yi PRINT " UTAB A: HTAB B: PRINT ■ “ 

110 K = PEEK < - 16384) 

111 A* = CHR* <K> 


120 

IF 

ASC 

<A*> =214 THEN Y = Y 

+ 

1 


125 

IF 

ASC 

<A*> = 195 THEN Y = Y 

- 

1 


130 

IF 

ASC 

<A*> =216 THEN X = X 

■f 

1 


135 

IF 

ASC 

<A*> = 211 THEN X = X 

- 

1 


140 

H = 

INT 

< RND <1) #2) 




150 

IF 

H = 0 

THEN A = A + (X > A) 

- 

<X 

< A) 

160 

IF 

H = 1 

THEN B = B + (Y > B> 

- 

< Y 

< B) 

170 

UTAB A: 

HTAB B: PRINT "X" 




180 

IF 

A = X 

AND B = Y THEN 220 





181 NN = 163: GOSUB 500 

182 Q1 = Q3 + 8 » <XX - 1) 

183 Q2 = Q1 + Y ♦ 40 » <<XX - 1) # 3) 

184 IF PEEK (Q2) * NN AND ASC <A*> * 214 THEN Y = Y - 1 

185 IF PEEK <Q2> = NN AND ASC <A*> = 195 THEN Y = Y + 1 

186 IF PEEK (Q2) = NN AND ASC <A*> = 216 THEN X = X - 1 

187 IF PEEK <Q2> « NN AND ASC CA*> * 211 THEN X = X + 1 

190 OTAB X: HTAB Y: PRINT 

200 P = P + 1 
210 GOTO 100 

220 UTAB 15: PRINT "Punti : "P 
225 IF P > RE THEN RE = P 

230 PRINT : PRINT "Per continuare premi <RETURN> *j: INPUT Q* 
240 GOTO 5 

500 IF X = >1 AND X = <8 THEN Q3 = 1023:XX = X 
510 IF X = >9 AND X - <16 THEN Q3 = 1063:XX = X - 8 
520 IF X = >17 AND X = <24 THEN Q3 = 1103:XX = X - 16 

530 RETURN 


Listato 4. Conversione per Apple de! programma "Giochi di inseguimento” 
apparso sul numero 10-11 di Personal Software. 
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— Parte seconda — 



Figura I. Il 6502 e la memoria. Notare il bus indirizzi a 16 bit, che permette di 
indirizzare 65536 locazioni di memoria. 


Diamo uno sguardo 
aH’interno del micro 
6502 


di Alessandro Guida 


Il 6502 e la memoria 

N ella prima puntata, abbia¬ 
mo visto che i numeri ven¬ 
gono trattati secondo la 
base binaria. Abbiamo inoltre visto 
che il microprocessore può maneg¬ 
giare solo numeri composti da otto 
bit, detti byte, e quindi compresi tra 
0 e 255. 

Questi numeri possono avere un 
duplice significato. Essere dei sem¬ 
plici dati numerici (ad esempio il 
numero di impulsi ricevuti lungo 
una linea) o essere interpretati come 
una istruzione, cioè un comando da 
eseguire. 

In ogni caso il microprocessore ha 
bisogno di una memoria in cui con¬ 
servare i dati e da cui prelevare le 
istruzioni da eseguire. 

Osservate la figura 1. La memoria 
è fisicamente costituita da un grup¬ 
po di circuiti integrati in grado di 
mantenere delle informazioni in 
modo sia permanente (anche a com¬ 
puter spento) sia momentaneo, cioè 
finché il computer resta acceso o 
quegli stessi dati cambiati. 

La memoria, nel suo insieme, è for¬ 
mata da un certo numero di locazio¬ 
ni, ognuna delle quali contiene un 
byte di informazione. Queste loca¬ 
zioni non possono essere lette o 
scritte tutte contemporaneamente, 
perciò è necessario un “indirizza¬ 
mento” della memoria. Questo con¬ 
siste nel fornire agli integrati che la 
compongono il numero della loca- 
26 


zione che vogliamo leggere o scrive¬ 
re. 

Il 6502 è dotato di una linea di 
indirizzamento, chiamata Bus degli 
indirizzi, da 16 bit. È quindi in grado 
di indirizzare 2 f 16 = 65536 locazio¬ 
ni di memoria. 

Per comodità, l’intera memoria vie¬ 
ne divisa in 256 pagine di 256 byte 
ciascuna (256x256=65536). In que¬ 
sta maniera, gli otto bit più signifi¬ 
cativi dell’indirizzo danno il numero 
di pagina, mentre i meno significati¬ 
vi la locazione all’interno della pagi¬ 
na. In realtà, questa suddivisione ha 
anche delle ragioni tecniche, dovute 
al fatto che all’interno del micropro¬ 
cessore gli indirizzi (come tutti gli 
altri dati) a 16 bit sono gestiti come 
due separati da 8 bit. Per questo 
motivo tutte le operazioni svolte al¬ 
l’interno di una pagina sono più ve¬ 
loci di quelle fatte tra pagine diverse. 


Quest’ultime, infatti, obbligano il 
microprocessore ad ulteriori elabo¬ 
razioni. 

Lina volta effettuato l’indirizzamen- 
to sarà possibile attraverso il bus 
dati, connesso alla porta dati del 
6502 e all’ingresso/uscita dati della 
memoria, leggere il contenuto della 
locazione di memoria indicata o 
modificarla. 

Il meccanismo di indirizzamento 
della memoria è lo stesso che usiamo 
normalmente in BASIC con le istru¬ 
zioni POKE e PEEK. Infatti, anche 
in BASIC è necessario specificare il 
numero della locazione nella quale 
vogliamo leggere o scrivere. 

Attenzione: l’avere detto che il 
microprocessore può accedere a 
65536 locazioni di memoria non si¬ 
gnifica che è sempre possibile anche 
scrivervi. Infatti, generalmente, una 
parte della memoria del computer è 
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occupata dai programmi di sistema, 
che ne permettono il funzionamento 
in BASIC. 

Questi programmi sono memorizza¬ 
ti su ROM (Read Only Memory = 
Memoria a sola lettura), che ha il 
pregio di non cancellarsi allo spegni¬ 
mento del computer ma, per contro, 
non permette la scrittura. Vedremo 
comunque in seguito in quali zone di 
memoria sarà possibile scrivere i no¬ 
stri programmi in linguaggio mac¬ 
china. 


I registri del 6502 

Per rendere più facile la program¬ 
mazione in linguaggio macchina è 
senz’altro importante conoscere, a 
grandi linee, cosa contiene il micro- 
processore 6502 (figura 2). 
Abbiamo già visto che esiste una 
linea, attraverso la quale si muovo¬ 
no i dati, chiamata Bus Dati e che, 
per effettuare l’indirizzamento della 
memoria, esiste il Bus Indirizzi. 
All’interno del microprocessore, a 
queste due linee sono collegati alcu¬ 
ni registri ed una ALU. 

Con registri intendiamo una cella 
di memoria di otto bit. 

Invece il termine ALU sta per 
Unità Aritmetico Logica. 

Essa è rappresentata con una V per 
indicare la presenza di due entrate 
ed una sola uscita: il risultato della 
operazione svolta. Le operazioni 
che la ALU può svolgere sono molte 
(sommare, sottrarre, eseguire ope¬ 
razioni booleane, ecc.), ma quella 
effettivamente eseguita verrà stabili¬ 
ta dal comando ricevuto. 

In genere, su un ingresso è presen¬ 
te un dato proveniente dalla memo¬ 
ria e sull’altro uno proveniente da 
un registro interno. 

Vediamo, ora, i vari registri. 

II bus indirizzi fa capo ai registri PC 
(Program Counter). 



Figura 2. Rappresentazione schematica de! microprocessore 6502. 

In questa figura sono rappresentati (in maniera molto semplificata) i registri 
contenuti ne! 6502. 


Poiché per gli indirizzi sono necessa¬ 
ri 16 bit, mentre tutti i registri del 
6502 sono a 8 bit, ne sono stati utiliz¬ 
zati 2. Uno ALTO (H) per il byte più 
significativo (MSB) e uno BASSO 
(L) per il byte meno significativo 
(LSB). 


I due registri X e Y sono utilizzati 
in genere per memorizzare momen¬ 
taneamente dei dati o come contato¬ 
ri per cicli simili al BASIC FOR- 
NEXT. Infatti, è possibile incre¬ 
mentarli o decrementarli con una 
sola istruzione. Sono inoltre utiliz- 
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zati come puntatori per eseguire de¬ 
gli indirizzamenti indiretti, che ve¬ 
dremo in seguito. 

Il registro A, che utilizzeremo molto 
spesso, è quello utilizzato per le ope¬ 
razioni. In esso viene conservato il 
risultato proveniente dalla ALU. 

P è un registro speciale, in quanto gli 
otto bit in esso contenuti sono dei 
FLAG. Ogni bit, quindi, ha un si¬ 
gnificato diverso. Tra i vari flag ci 
sono anche il C (Carry) e il V (Over- 
flow) visti nella puntata precedente. 
Per ultimo vi è il registro S. Questo 
registro è un puntatore speciale. 

Esso viene utilizzato per puntare 
una locazione di memoria in pagina 
1. Le 256 locazioni presenti in pagi¬ 
na 1 sono dette Stack. 



Lo Stack 

Lo Stack è una zona di memoria 
gestita con sistema LIFO (Last In- 
First Out), ossia l’ultimo dato me¬ 
morizzato è il primo ad essere letto 
(figura 3). 

Per usare una similitudine, possia¬ 
mo pensare allo Stack come ad una 
pila di piatti, nella quale ad ogni 
piatto corrisponde un dato. L’ulti¬ 
mo piatto poggiato sulla pila sarà il 
primo a poter essere tolto (sempre se 
non si vuole rovesciarli tutti per ter¬ 
ra!). 

In realtà il computer opera alla 
rovescia. I dati, infatti, cominciano 
ad essere immagazzinati a partire 
dalla cima dello Stack (locazione 
255 in pagina 1). Vengono poi via 
via aggiunti uno sull’altro, decre- 
mentando ogni volta il registro S, 
puntatore allo Stack. Quando, inve¬ 
ce, un dato deve essere prelevato, 
viene incrementato S e, subito dopo, 
viene letto il dato indicato dal pun¬ 
tatore S. 

Le operazioni di immagazzinamen¬ 
to e prelievo sono dette PUSH e 
PULL. 

Lo Stack e le relative operazioni 
di PUSH e PULL hanno una note¬ 
vole importanza, poiché permetto¬ 
no una veloce memorizzazione mo- 


Il carattere ')' indica il puntatore contenuto nel registro S. 

I caratteri "XX" indicano un contenuto qualsiasi. 



$0100 


$0100 


$0100 




' 





XX 

$01FD 

XX 

$01FD (FD)> 

XX 

$01 FD 


XX 

S01FE (FE)> 

XX 

$01 FE 

B2 

$01 FE 

( FF ) > 

XX 

$01 FF 

RI 

$01FF 

RI 

$01 FF 


a 


b 


c 




$0100 


$0100 


$0100 









XX 

$01 FD 

XX 

$01 FD 

XX 

$01F0 

(FE)> 

B2 

$01 FE 

XX 

$01 FE 

XX 

$01FE 


RI 

$01FF (FF)> 

RI 

$01FF (FF)> 

XX 

$01FF 


d 


e 


F 



Figura 3. Funzionamento dello stack. 

a) La pag. I di memoria (stack) all'inizio. Il registro S punta l’inizio dell'area 
(FF). 

b) Primo PUSH. Viene memorizzato il dato AI nella locazione puntata da S, e 
S viene decrementato. 

c) Secondo PUSH. Viene memorizzato il dato, R2 e S. ancora, decrementato. 

d) Primo PULL. Viene incrementato S e letto il contenuto della locazione 
puntata (B2). 

e) Secondo PULL. Ancora incrementato S (FF), e viene letto AI. 

0 La situazione dello stack alta fine. Anche se le due locazioni $01 FF, $01FE 
contengono ancora i valori precedentemente memorizzati, questi non hanno 
più interesse, in quanto verranno sostituiti da nuovi dati nelle successive 
operazioni di PUSH. 
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REGISTRO ’P' 
Carry 


— Zero 
— Interrupt 
BEO 
Break 


— Overflou 
— Negative 


Figura 4 .17 flag contenuti nel registro P. A parte il bit 5, ad ogni bit del 
registro corrisponde un flag. Pertanto ogni flag può avere solo valore 1 (flag 
attivato) o 0 (disattivato). 
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mentanea dei dati. Vedremo, infatti, 
che queste due operazioni occupano 
solo 1 byte di memoria. Scopriremo, 
anche, che lo Stack è interessato dai 
salti a subroutine, simili al GOSUB 
del BASIC. 

I flag del 6502 

Si è detto che il registro P contiene 
dei flag (figura 4). Ora vedremo qua¬ 
li sono, ma delle loro funzioni torne¬ 
remo a parlare in seguito. 

N - Negativo. Viene settato quando 
una operazione svolta dalla ALU dà 
risultato negativo. 

V - Overflow. Quando è settato indi¬ 
ca una situazione di overflow nel¬ 
l’ultima operazione effettuata. 

B - Break. Indica che il microproces¬ 
sore ha incontrato il comando BRK. 


D - Decimale. Se si pone ad 1 questo 
flag, il 6502 opererà in modo deci¬ 
male anziché esadecimale. Questo 
significa che, pur mantenendo la no¬ 
tazione binaria, quattro bit non po¬ 
tranno superare il 9 (1001), dopodi¬ 
ché si avrà il riporto sul quinto bit 
(esempio 10 = 1000). 

Quindi 21, che in binario si scrive 
00010101, col flag D attivato diven¬ 


ta 00100001. In pratica, il nibble più 
significativo anziché essere un mul¬ 
tiplo di 16 lo è di 10. 

I - Interrupt. Questo bit è legato 
all’intervento di circuiti esterni al 
6502. Lo tratteremo a parte. 

Z - Zero. Indica che il risultato di 
una operazione è uguale a zero. 

C - Carry. Segnala che nell’eseguire 
una addizione o sottrazione vi è sta- 



NEL PROSSIMO NUMERO DI 


TROVERETE: 


• SCHERMO APPLE E C 64 

• TYPE WRITER PER VIC 20 

• OTHELLO REVERSI PER 
VIC 20 E C 64 

• ZX81 CROUPIER 

• ROUTINE IN LINGUAGGIO 
MACCHINA PER SINCLAIR 


• GRAFICA AVANZATA 
SUL TI99/4A 

• LINGUAGGIO MACCHINA 
CON VIC 20 E C 64 

• ROBOT A CACCIA: 

UN GIOCO PER SPECTRUM 

• LA BATTAGLIA DEL LAGO 
GHIACCIATO DA UN FILM, 
UN GIOCO PER PET 

• OTHELLO PER ZX81 
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to un riporto oltre l’ottavo bit. 


Ciclo di esecuzione delle istruzioni 

Vista la struttura interna ed ester¬ 
na del ' 502, è interessante conoscere 
come, effettivamente, il micropro¬ 
cessore esegue un programma. 

Il microprocessore, oltre i registri 
visti, contiene altri dispositivi che lo 
rendono operante. Il suo cuore è co¬ 
stituito da un oscillatore, detto 
clock, che fornisce circa un milione 
di impulsi al secondo, necessari a 
sincronizzare e far eseguire le varie 
istruzioni. 

Schematicamente, quando il 6502 è 
in funzione avviene quanto segue, 
come illustrato nello schema a bloc¬ 
chi di figura 5. 

1) Il clock fa avanzare il registro PC 
(Contatore di Programma) per pun¬ 
tare la prossima locazione di memo¬ 
ria. 

2) Viene inviato alla memoria l’indi¬ 
rizzo e un segnale di READ (leggi) 
che le comunica di depositare il con¬ 
tenuto della locazione sul Bus Dati. 

3) Il dato viene letto sul Bus Dati dal 
6502 e messo in uno speciale registro 
del microprocessore, detto IR (Regi¬ 
stro d’istruzione). 

4) Viene interpretato il dato conser¬ 
vato in IR ed eseguita l’operazione 
relativa. 

5) Torna al punto 1. 

In realtà, molte istruzioni si com¬ 
pongono di 2 o 3 byte consecutivi, 
per cui il ciclo descritto viene per¬ 
corso 2 o 3 volte, prima che l’istru¬ 
zione sia completa e quindi eseguita. 

Naturalmente, questa è una visio¬ 
ne molto semplificata di ciò che av¬ 
viene a livello elettronico nella CPU 
(Central Processing Unit) 6502, ma 
è sufficiente per ciò che riguarda la 
programmazione. 

La figura 6 contiene una tabella 
comparativa dei diversi sistemi di 
numerazione. 

Anche per questa volta abbiamo ter¬ 
minato. Dalla prossima puntata co- 
minceremo a programmare in lin¬ 
guaggio macchina. ■ 



figura 5. Schema a blocchi semplificato del ciclo di esecuzione di una istruzio¬ 
ne del microprocessore 6502. 


DEC. 

ESADEC. 

BINARIO (D = 0) 

BIN. I 

DECIMALE 

00 

00 

0000 0000 

0000 

0000 

01 

01 

0000 0001 

0000 

0001 

09 

09 

0000 1001 

0000 

1001 

10 

OA 

0000 1010 

0001 

0000 

11 

0B 

0000 1011 

0001 

0001 

15 

ÒF 

0000 1111 

0001 

0101 

16 

10 

0001 0000 

0001 

Olio 

19 

13 

0001 0011 

0001 

1001 

20 

14 

0001 0100 

0010 

0000 

30 

1È 

0001 Ilio 

0011 

0000 

50 

32 

0011 0010 

0101 

0000 

90 

5À 

0101 1010 

1001 

0000 

98 

62 

Olio 0010 

1001 

1000 

99 

63 

Olio 0011 

1001 

1001 

100 

64 

0110 0100 

1 0000 

0000 


Figura 6. Tabella comparativa delle numerazioni decimale, esadecimale, 
binaria, binario-decimale (detta BCD — Binary Coded Decimai). 
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Un sort efficace, 
ma spesso dimenticato 


di Angelo De Santis 


1 1 termine “sort” indica il 
processo di ordinamento 
degli elementi di un vetto¬ 
re in base al loro valore numerico, in 
ordine crescente oppure decrescen¬ 
te. 

È molto facile trovarsi di fronte alla 
necessità di ordinare grandi quanti¬ 
tà di dati ed è quindi evidente l’utili¬ 
tà di algoritmi di sort veloci ed effi¬ 
cienti. 

Molti algoritmi di sort richiedono 
tempi proporzionali a n ★ log n (do¬ 
ve n è il numero di elementi da ordi¬ 
nare) ed hanno anche la caratteristi¬ 
ca di richiedere lunghi e complicati 
programmi. 

In questo articolo viene presentato 
invece un metodo di sort abbastanza 
semplice che comporta solo qualche 
decina di istruzioni in BASIC e ri¬ 
chiede un tempo di esecuzione sem¬ 
plicemente proporzionale ad n. Il 
programma è stato adattato allo 
ZX81 prendendo spunto da un arti¬ 
colo comparso sulla rivista Byte del 
Novembre 1983. 

Questo tipo di sort si chiama “A 
calcolo di indirizzo” e il nome deri¬ 
va dal fatto che esso riserva una me¬ 
moria maggiore di quella stretta- 
mente necessaria, ed ogni elemento 
va ad essere posto in una locazione 
di memoria (indirizzo) calcolata a 
seconda del valore dell’elemento 
stesso. 

Nel programma del listato 1 per 
ordinare n elementi l’occupazione di 
memoria è 3.36 ★ n per cui perordi 
nare 300 elementi viene richiesto ci"- 



Listato 1. Programma di ordinamento. Le linee 80-190 contengono l’algoritmo 
vero e proprio e possono essere modificate in base alle necessità reali. 
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ca 1 Kbyte di memoria (senza consi¬ 
derare la memoria occupata dal pro¬ 
gramma). 

Struttura del programma 

7 Richiesta del numero N di elemen¬ 
ti da ordinare. 

20-70 Si calcolano a caso gli elemen¬ 
ti da ordinare. 

85-110 Riserva sufficiente spazio in 
memoria per gli elementi. 

120-190 Colloca al proprio posto nel 
vettore A ciascun elemento. 

195-280 Routine di stampa su video 


degli elementi ordinati. 

In pratica la vera e propria routine 
di sort parte dalla riga 80 in poi. 
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a) Davidson D., “Address calcula- 
tion, thè forgotten sort”, Byte No¬ 
vembre 1983. 

b) Flores I., “Computer sorting”, 
Engewood Cliffs, NJ, Prentice-Hall, 
1969. 

c) Lorin H., “Sorting and sort 

systems”, Reading, MA, Addison- 
Wesley, 1975. ■ 



con 15 numeri. Il procedimento ri¬ 


chiede meno di un secondo. 



È vero: piccolo è bello! 


Alla scoperta dello 
ZX SPECTRUM 

a cura di Rita Bonelli 

ZX Spectrum è l’ultimo nato della famiglia Sinclair. È un 
calcolatore a colori di piccole dimensioni, ma di 
grandissime possibilità. Imparare a usarlo bene può 
essere fonte di molte piacevoli scoperte. Questo libro vi 
aiuta a raggiungere lo scopo. In 35 brevi e facilissimi 
capitoli non solo imparerete tutto sulla programmazione 
in BASIC, ma arriverete anche a usare efficientemente il 
registratore e a sfruttare al meglio le stampe. 

Soprattutto capirete la differenza tra il vostro Spectrum 
e gli altri computer. 

320 pagine. Lire 22.000 Codice 337 B 
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Per ordinare il volume utilizzare l’apposito tagliando inserito in fondo alla rivista 
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L a battaglia 

del lago ghiacciato 


— Parte prima — 


Da un film famoso 
un gioco di simulazione 
per PET CBM 


di Umberto Giovanni Barzaghi 


Prologo 

A causa della lunghezza del¬ 
l’articolo siamo costretti a 
pubblicarlo in due puntate 
successive. 

Su questo numero compare la de¬ 
scrizione delle caratteristiche del 
gioco ed alcune note sulla sua imple¬ 
mentazione; il listato del program¬ 
ma ed i REMarks allo stesso, compa¬ 
riranno sul prossimo numero di Per¬ 
sonal Software. 

Riprendo, con questo program¬ 
ma, la mia regola non scritta di 
prendere spunto, per i miei pro¬ 
grammi, da opere cinematografiche. 
I più affezionati lettori di Bit ricor¬ 
deranno programmi come “La 24 
ore di Le Mans” (era un film con 
Steve McQueen), “Gran Prix” (di 
John Frankenheimer, con Yves 
Montand e James Gardner) o “’14- 
’18” (ispirato al film “Ma che bella 
guerra!” di Sir Richard Attenbo- 
rough). Per questo programma, lo 
spunto è invece tratto dal grande 
cinema russo: l’episodio della batta¬ 
glia del lago ghiacciato è infatti trat¬ 
to dall’“Alexander Nevskij” di Ser¬ 
gej Michajlovic Ejzenstejn; l’autore 
de “La corrazzata Pot'émkin” e di “I 
dieci giorni che sconvolsero il mon¬ 
do”. 


In realtà l’idea di trarre da questa 
famosa pagina della cinematografia 
un wargame non è originale; ricordo 
che, una decina di anni fa, uno dei 
doni previsti per chi si abbonasse 
alla rivista “Linus”, era appunto 
rappresentato da un boardgame 
(vale a dire un wargame da tavolo), 
alla cui realizzazione grafica aveva 
collaborato il noto disegnatore di 
fumetti Guido Crepax, ispirato al¬ 
l’episodio in questione. 

L’aspetto più interessante, da un 
punto di vista puramente strategico, 
della battaglia è dato dalla disparità 
delle forze in campo. Di fronte, in¬ 
fatti, ai cavalieri in armatura del¬ 
l’Ordine Teutonico, il principe Ale¬ 
xander Nevskij poteva schierare so¬ 
lo una fanteria, numerosa ma racco¬ 
gliticcia, composta prevalentemente 
da contadini. Proprio il fatto di aver 
sottolineato, nel suo film del 1938, 
che si avvale, fra l’altro, di splendidi 
brani musicali, scritti per l’occasio¬ 
ne da Sergej Prokofev, il grande 
eroismo del popolo russo nell’af- 
frontare l’invasore germanico, valse 
a Ejzenstejn, nel Febbraio del 1939, 
l’Ordine di Lenin. 

Fissiamo brevemente il momento 
storico in cui l’azione si svolge. Sia¬ 
mo nel 1242, dopo la caduta di Kiev, 
la Russia, sotto l’attacco dei Mon¬ 
goli ad est, si smembra. Sul fronte 
occidentale essa è sottoposta alla 
espansione germanica in Livonia 
(l’attuale Estonia e Lituania), sor¬ 
retta dall’Ordine dei Portaspada, 
cavalieri cattolici di nobili lignag¬ 
gio, ex crociati in gran parte, fedeli a 
Papa Innocenzo III 0 . Ad essi si alle¬ 
ano i cavalieri dell’Ordine Teutoni¬ 
co dei Cavalieri della Croce, rappre¬ 
sentanti dell’autorità militare della 
Prussia, originariamente, a S. Gio¬ 
vanni d’Acri, in Palestina. Insieme, i 
due ordini rappresentavano la più 
grande forza militare dell’epoca, in 


Europa. 

Quando i Teutoni puntavano su 
Novgorod, una lega fra le città russe 
minacciate si rivolge ad Alexander, 
principe del granducato di Suzdalia, 
detto Nevskij, per aver fermato, in 
una precedente battaglia sulla Neva, 
l’avanzata delle orde mongole. 

La lega delle città russe non può 
offrire che un esercito male armato e 
poco addestrato, quasi interamente 
composto da truppe a piedi. A que¬ 
sto schieramento ben poco temibile, 
si contrappongono i Cavalieri del¬ 
l’Ordine Teutonico, sotto il diretto 
comando del Gran Maestro dell’Or¬ 
dine, Von Balk; addestratissimi e 
magnificamente armati, inferiori so¬ 
lo di numero, ma tutti forniti di ar¬ 
matura e cavalli appositamente ad¬ 
destrati per le battaglie. Il loro pun¬ 
to di forza era rappresentato dalla 
ferrea disciplina, temprata dalle ri¬ 
gide regole dell’Ordine, che ne face¬ 
vano una sorta di monaci armati. Ed 
infatti uno dei pretesti che avevano 
per la loro espansione territoriale 
verso est, sostenuta, tra l’altro dalle 
città che aderivano alla Lega Ansea¬ 
tica, era quella di diffondere la fede 
cattolica nei paesi slavi, fino allora 
pagani. 

Il principe Nevskij, consapevole 
della propria inferiorità, decise, con 
grande acume strategico, di fermare 
l’avanzata dei cavalieri teutonici 
sulle rive del lago Cudskoe, al confi¬ 
ne tra l’attuale Estonia e l’U.R.S.S. 
propriamente detta. E, per la preci¬ 
sione, nel punto in cui il lago Cuds¬ 
koe si congiunge col lago Pskov, 
uno stretto braccio circondato da 
paludi in cui i cavalieri teutonici, 
pesantemente corrazzati, non 
avrebbero potuto avanzare. Lo sco¬ 
po del principe era duplice: costrin¬ 
gere i cavalieri ad avanzare verso la 
città di Pskov attraverso lo stretto 
braccio ghiacciato che collega i due 
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laghi, in modo che, nello spazio ri¬ 
stretto i teutonici non avessero la 
possibilità di far valere la propria 
maggior forza e mobilità e, in secon¬ 
do luogo, spingere i cavalieri cata¬ 
fratti a correre il rischio di muoversi 
sulla superficie ghiacciata del lago, 
per inseguire le forze russe in ritira¬ 
ta. 

Come il film illustra, la tattica del 
principe Alexander Nevskij riuscì 
appieno. Attirati sul ghiaccio dalla 
tattica prudenzialedellegrandi mas¬ 
se di fanteria russe, i cavalieri del¬ 
l’Ordine Teutonico, con lei loro pe¬ 
santi armature, provocarono la rot¬ 
tura della superficie ghiacciata e pe¬ 
rirono, in gran numero, nelle acque 
gelide sottostanti o schiacciati tra i 
blocchi di ghiaccio spezzati dal loro 
stesso peso. 

Il film, che introduceva la “rivo¬ 
luzionaria” innovazione di rappre¬ 
sentare i “buoni” (per Ejzenstejn, 
logicamente, i contadini russi) vesti¬ 
ti di nero ed i “cattivi” vestiti di 
bianco, prefigurava, nella foggia de¬ 
gli elmi dei cavalieri teutoni, nel loro 
portamento rigidamente marziale, 
negli stessi stemmi riprodotti sugli 
scudi, lo scontro che, di lì a pochi 
anni, doveva vedere contrapposti i 
battaglioni dell’armata rossa e l’e¬ 
sercito nazista che, pure, nel 1939 
(quando a Ejzenstejn veniva confe¬ 
rito l’Ordine di Lenin) erano dive¬ 
nuti alleati, contro l’indifesa Polo¬ 
nia, con il patto di non aggressione 
Molotov-Von Ribbentrop. 

Dal momento che ho potuto ve¬ 
dere il film per intero una sola volta 
(è stato trasmesso nel corso di un 
ciclo su Ejzenstejn che andava in 
onda il sabato, a tarda ora, se non 
sbaglio, sulla seconda rete) e, in un 
paio di occasioni, le pregevoli se¬ 
quenze della battaglia, mi sono ser¬ 
vito, per tutto ciò che riguarda il 
film, dell’interessante volume “Le- 
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Figura 1. Le caselle a fondo bianco, compreso quelle su cui si trovano le pedine, 
rappresentano la superficie ghiacciata del lago, il cui spessore dipende dallo 
stato iniziale e dal suo successivo deterioramento. La casella a metà bianca e 
nera in A-l. che rappresenta una parte della riva del lago, è invece considerata 
alla stessa stregua della terra-ferma. 

La croce in C-3 indica il punto in cui il ghiaccio si è rotto sotto il peso dell’unità 
che stava occupando la casella, inghiottendo la stessa. 

La pedina bianca (unità di cavalleria teutonica) in D-3, muovendo in C-2 
provoca lo scontro con le tre unità russe, con l’appoggio dalla pedina tedesca in 
B-3, che si trova all'interno della zona di controllo della prima pedina, unita¬ 
mente alle tre unità russe. 
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Figura 2. Le caselle interamente nere o a metà bianche e nere (come in B-9 e 
1-0) rappresentano zone di terraferma, quelle contenenti un trattino bianco, 
come in F-6, rappresentano zone paludose, accessibili alle unità russe ma non 
alle più pesanti unità corazzate teutoniche. 

La pedina russa in J-7, può provocare lo scontro con la singola pedina tedesca 
in 1-8, sia muovendo inJ-8, sia muovendo in 1-8. Supponendo che tutte le pedine 
raffigurate siano illese, nel primo caso il rapporto di forze è di 6 a 15, dato dalla 
somma delle capacità belliche delle due unità russe all'interno della zona di 
controllo dell'unità mossasi in J-8 (potenza negli scontri per la singola unità 
russa uguale a 3, moltiplicata per il numero delle unità russe) e dalla potenza 
dell’unità teutonica isolata (capacità bellica uguale a 15). Muovendo in 1-8, 
invece, l’unità in J-7, coinvolgerebbe nello scontro anche l’unità russa in H-7, 
facendo satire il rapporto a 9 contro 15. 
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La battaglia 
del lago ghiacciato. 


zioni di regia”, di Sergej Michajlovic 
Ejzenstejn, pubblicato nella ‘‘Picco¬ 
la biblioteca Einaudi”; mentre per le 
notizie storiche mi sono servito del¬ 
l’Enciclopedia di Storia medioevale 
della Oxford University. 


Il gioco 

Dopo aver offerto all’utente la 
possibilità di caricare da nastro i da¬ 
ti necessari per proseguire una parti¬ 
ta interrotta, nel caso in cui l’opzio¬ 
ne venga rifiutata, viene chiesto al¬ 
l’utente di identificarsi con uno dei 
due strateghi impegnati nella batta¬ 
glia. Quindi viene mostrata la carti¬ 
na del campo di battaglia. 

Per ragioni grafiche la cartina è 
orientata con il nord a sinistra e mo¬ 
stra (da destra a sinistra), l’affluente 
del lago Pskov, il lago Pskov stesso 
(ghiacciato), il braccio che collega lo 
Pskov al Cudskoe (circondato dalle 
paludi, che sono rappresentate, se¬ 
condo le convenzioni cartografiche 
internazionali, da trattini orizzonta¬ 
li), quindi il lago Cudskoe, anch’es- 
so ghiacciato ed il suo effluente. 

Il programma provvede, quindi, a 
generare casualmente lo spessore 
del ghiaccio in quei tratti del lago 
rappresentati da caratteri grafici 
“pieni”. Questo spessore varia tra 
un minimo di 7.5 ed un massimo di 
13. L’unità di misura in cui i valori 
suddetti sono espressi non viene spe¬ 
cificata; essa è, comunque, in rela¬ 
zione al peso delle singole unità. Il 
meccanismo, infatti, che provoca la 
rottura del ghiaccio è dato dal fatto 
che il valore che esprime il peso de- 
l’unità che passa su di un tratto 
ghiacciato, sia superiore al valore 
numerico che esprime lo spessore 
del ghiaccio nel punto suddetto. 

Terminata la routine precedente, 
il programma piazza sulla cartina le 
pedine che rappresentano le unità 
impegnate nella battaglia. Dato che 
la documentazione “storica” sulla 
battaglia è piuttosto limitata, mi so¬ 
no permesso di stabilire arbitraria¬ 
mente sia la numerosità dei due 



schieramenti che la loro posizione. 

Per quanto riguarda il primo fat¬ 
tore, esso è stato scelto in modo da 
avere un rapporto di due a uno tra 
l’esercito russo e quello germanico. 

Gli schieramenti vedevano, ini¬ 
zialmente, venti unità di cavalleria 
teutoniche affrontare quaranta uni¬ 
tà di fanteria russe; ed entrambe le 
armate erano schierate lungo le rive 
dello Cudskoe. Dato che la cosa, 
però lasciava liberi dei varchi lungo 
la riva del lago Pskov, per gli inseri¬ 
menti delle unità tedesche, ha prefe¬ 
rito portare le unità di cavalleria a 
trenta (e quelle russe, naturalmente 
a sessanta), dislocandole, grosso 
modo, lungo le rive dei due laghi. La 
necessità di mantenere il rapporto di 
due a uno è data dal fatto che, in 
questo modo, nell’ambito di tempo 
in cui le unità russe compiono tutte 
una mossa, ogni unità teutonica ne 
compie due; simulando, così, una 
velocità di avanzamento per le trup¬ 
pe a cavallo teutoniche, doppia ri¬ 
spetto a quella delle truppe russe a 
piedi. 

Dopo di che la partita ha inizio, 
alterando le mosse delle varie unità 
che compongono i due eserciti. 
L’ordine in cui esse muovono è dato 
dalla loro posizione sulla scacchie¬ 
ra. Poiché il nodo dell’azione si svol¬ 


se sull’ampia superficie ghiacciata 
del lago Cudskoe (la quinta superfi¬ 
cie lacustre d’Europa), si è scelto di 
far muovere le unità a partire da 
quelle più a sinistra della cartina e di 
far muovere i russi per primi. Per 
problemi di coordinamento dei mo¬ 
vimenti le unità più vicine alla linea 
del fronte (per quanto riguarda la 
sola fanteria russa, che è disposta su 
più file parallele) muovono prima 
della retroguardia, il che porta, na¬ 
turalmente, ad un certo allunga¬ 
mento dello schieramento, che pre¬ 
giudica la compattezza della forma¬ 
zione russa. 

Le prime unità a muovere sono 
quindi quelle di prima linea dell’ala 
destra dello schieramento russo, sia¬ 
no esse controllate dal calcolatore o 
dal giocatore. I due avversari si al¬ 
ternano nelle mosse in base al ritmo 
descritto precedentemente. 

Quando il turno spetta al giocato¬ 
re, il calcolatore chiede che venga 
introdotto, tramite il tastierino nu¬ 
merico, un valore da 1 a 9, 5 compre¬ 
so, che indica in quale direzione si 
desidera spostare, di una casella, l’u¬ 
nità in questione. La direzione è, 
come al solito, indicata dalla posi¬ 
zione relativa dell’unità (rappresen¬ 
tata dal tasto “5”) rispetto alle altre 
cifre del tastierino numerico. Così, 
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premendo “8” indicheremo che de¬ 
sideriamo spostare l’unità di una ca¬ 
sella a nord della sua posizione at¬ 
tuale; premendo “3” lo spostamen¬ 
to sarà di una casella a sud ed una a 
destra, vale a dire uno spostamento 
a sud-est dell’unità, mentre, nel caso 
in cui si prema il tasto “5”, l’unità 
rimarrà nella sua posizione attuale. 

Dopo ogni mossa il calcolatore 
provvede a controllare che non si 
verifichino incongruenze (tentativi 
di sovrapporre più unità sulla stessa 
casella) e ad esaminare la situazione 
creatasi con la nuova mossa. 

Così, il calcolatore provvederà ad 
aggiornare la variabile associata alla 
vecchia posizione occupata dall’uni¬ 
tà mossasi, in modo da simulare un 
deterioramento dello stato del 
ghiaccio (nel caso in cui, ovviamen¬ 
te, l’unità si trovasse sulla superficie 


del lago) in seguito al passaggio del¬ 
l’unità stessa. Questo deterioramen¬ 
to è proporzionale al peso delle varie 
unità, e, per la precisione, è pari alla 
metà del loro peso attuale. 

Quindi, un’unità di cavalleria te¬ 
desca determina una diminuzione 
nello spessore del ghiaccio di 4 uni¬ 
tà, un cavaliere teutonico appiedato 
(peso uguale a tre unità), di una uni¬ 
tà e mezzo; mentre un’unità di fante¬ 
ria russa toglie allo spessore del 
ghiaccio solo mezza unità di misura. 

Analogamente il calcolatore 
provvede a verificare il caso in cui lo 
spostamento dell’unità l’abbia por¬ 
tata su di una zona ghiacciata, non 
in grado di reggerne il peso (valore 
eprimente il peso attuale dell’unità 
superiore al valore numerico rap¬ 
presentante lo spessore del ghiaccio 
nel punto), oppure su di una zona 


paludosa. Mentre, però, la verifica, 
nel primo caso viene compiuta per le 
unità di entrambi gli schieramenti, 
nel caso delle paludi le unità di fan¬ 
teria russe, più leggere e prive di 
corazza, possono avanzare impune¬ 
mente senza paura di sprofondare. 

Come i patiti di boardgame san¬ 
no, ogni pedina o “counter” ha as¬ 
sociati due o più valori numerici che 
ne determinano le caratteristiche 
per capacità belliche, velocità di mo¬ 
vimento ecc.. Nel caso di “La batta¬ 
glia del lago ghiacciato”, come ab¬ 
biamo visto, il fattore velocità è insi¬ 
to nella numerosità stessa dei due 
schieramenti, che simula una veloci¬ 
tà della cavalleria teutonica doppia 
rispetto a quella della fanteria russa, 
senza introdurre esplicitamente un 
fattore velocità (che, peraltro, esiste, 
come vedremo, sotto forma di han- 
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dicap provocato dalle conseguenze 
degli scontri tra più unità, in modo 
da rallentare le unità ferite o, ad 
esempio, far muovere i cavalieri te¬ 
deschi disarcionati alla stessa veloci¬ 
tà delle truppe russe a piedi). Un 
secondo fattore che abbiamo già vi¬ 
sto, piuttosto inusuale per un board- 
game, è dato dal peso delle varie 
unità che è stabilito come segue: pre¬ 
sa come unità di misura una pedina 
russa (quindi una unità di fanteria 
armata alla leggera e priva di coraz¬ 
za), una unità di cavalleria teutonica 
completa di corazza e cavalcatura 
ha un peso otto volte superiore, ed 
un cavaliere appiedato (ma pur sem¬ 
pre fornito di corazza) ha un peso 
pari a tre volte quello di una unità di 
fanteria russa. 

Rimangono quindi da considera¬ 
re i fattori di capacità belliche o di 
potenza negli scontri. Innanzi tutto 
ho unificato, come capita ormai so¬ 
vente i fattori di attacco e di difesa. 
Ho inoltre stabilito che, nel caso in 
cui l’esito di uno scontro veda il “fe¬ 
rimento” di una unità, la sua effi¬ 
cienza venga diminuita di una unità 
e mezza. I valori di partenza sono i 
seguenti: una unità di cavalleria in 
perfetto stato ha un valore di poten¬ 
za negli scontri pari a quindici unità. 
Nel caso in cui venga ferita una pri¬ 
ma volta la sua potenza scende a 
13.5; nel caso in cui venga però ferita 
una seconda volta essa viene consi¬ 
derata “morta”. Nel caso in cui una 
unità di cavalleria venga disarciona¬ 
ta, oltre che il suo peso, (che scende, 
come visto, a tre) diminuisce anche 
la sua potenza negli scontri di dodici 
unità, pertanto, se il cavaliere non 
era mai stato ferito la sua potenza 
passa a tre (vale a dire un valore pari 
a quello di una unità di fanteria rus¬ 
sa in perfetta efficienza) mentre se 
l’unità era già stata ferita in prece¬ 
denza il suo valore di potenza passa 
a 1.5. Ovviamente unità appiedate, 
siano esse teutoniche o russe, nel 
caso in cui vengano ferite due volte 
vengono considerate “morte”. 

Si può forse considerare discutibi¬ 
le la scelta di equiparare una unità di 
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cavalleria disarcionata ad una unità 
di fanteria illesa. Ma, se la protezio¬ 
ne offerta dall’armatura rappresen¬ 
ta un evidente vantaggio in caso di 
scontri essa rappresenta un non in¬ 
differente svantaggio dal punto di 
vista dell’agilità nei combattimenti e 
della libertà di movimenti nella mar¬ 
cia, svantaggio tale che è forse ecces¬ 
sivo supporre che un cavaliere disar¬ 
cionato sarebbe riuscito ad avanza¬ 
re alla stessa velocità di una unità di 
fanteria leggera. I due errori, quindi, 
si compensano. 

Il calcolatore provvede anche, do¬ 
po ogni mossa a verificare che si 
siano venute a creare le condizioni 
necessarie ad uno scontro tra gli op¬ 
posti schieramenti. Perché le condi¬ 
zioni suddette siano soddisfatte, è 
necessario che, all’interno della 
Z.O.C. (Zone of control, zona di 
controllo) dell’ultima unità mossasi 
si trovi almeno una unità nemica. La 
zona di controllo, per ciascuna uni¬ 
tà, indipendentemente dall’esercito 
cui appartiene e dal suo stato attua¬ 
le, è rappresentata da un quadrato 
di lato tre unità video, centrato sulla 
posizione attuale dell’unità attac¬ 
cante. 

La C.R.T. (Combat results table, 
tabella dei risultati dei combatti¬ 
menti) è determinata, oltre che da 
un valore casuale (in luogo dei con¬ 
sueti dadi dei patiti di boardgame) 
anche dal rapporto di forze esisten¬ 
te, all’interno della suddetta zona di 
controllo. 

Contrariamente ai boardgame 
tradizionali, ed anche all’esempio di 
computer wargame da me realizzato 
per Bit (’ 1 4-’ 1 8 , apparso su Bit N° 
23, anno 4°, Dicembre 1981), ho pre¬ 
ferito limitare, ancoe, lo confesso, 
per ragioni pratiche, la determina¬ 
zione del supporto fornito ai due 
schieramenti coinvolti nello scon¬ 
tro, alla sola Z.O.C. dell’unità re¬ 
sponsabile dell’iniziativa di provo¬ 
care lo scontro, in modo da conce¬ 
dere quindi un vantaggio allo schie¬ 
ramento attaccante, rispetto a chi 
sta sulla difensiva. 

Facciamo un esempio pratico, 


supponiamo (vedi figura 1) che l’u¬ 
nità teutonica in D-3 cui tocca muo¬ 
vere sia illesa (capacità bellica ugua¬ 
le a 15), mentre la sua compagnia in 
B-3 sia stata disarcionata in uno 
scontro precedente (per cui la sua 
capacità bellica sarà ridotta a 3), 
mentre delle tre unità russe, due sia¬ 
no nelle loro piene capacità belliche 
ed una sia già stata ferita (capacità 
limitata a 1.5 rispetto alle 3 unità 
originali). Se l’unità in D-3 si muove 
in C-2 (numero corrispondente del 
tastierino numerico “7”) essa verrà 
a trovarsi ad avere le tre unità nemi¬ 
che all’interno della sua Z.O.C e 
provocherà, quindi, lo scontro. 
Sommando le capacità belliche delle 
unità dei due schieramenti all’inter¬ 
no della Z.O.C. dell’unità che si è 
mossa per ultima otteniamo un va¬ 
lore di 18 unità per lo schieramento 
tedesco e di 7.5. unità per lo schiera¬ 
mento russo. Con una semplice pro¬ 
porzione, si ottengono i valori per¬ 
centuali corrispondenti alla riparti¬ 
zione delle probabilità di esito favo¬ 
revole per i due eserciti. Con i valori 
suddetti il rapporto è di 70.58 a 
29.42 a favore dello schieramento 
germanico. Ciò significa che ci sono 
70.58 probabilità su cento che l’esito 
dello scontro sia favorevole alle uni¬ 
tà teutoniche e 29.42 a favore delle 
unità russe. Le probabilità suddette 
sono poi, a loro volta, suddivise tra i 
differenti esiti a danno dell’uno o 
dell’altro dei due schieramenti. Gli 
esiti suddetti si applicano a tutte le 
unità di uno stesso schieramento co¬ 
involte nello scontro, siano state es¬ 
se oppure_no a provocarlo diretta- 
mente. 

Nel caso delle truppe tedesche, le 
29.42 probabilità di avere esiti a loro 
sfavorevoli sono equamente suddi¬ 
vise tra: 

— la scomparsa del campo di gioco 
di entrambe le unità coinvolte, vale 
a dire la loro "morte”; 

— il disarcionamento di entrambe le 
unità (nel caso dell’unità in B-3, es¬ 
sendo quest’ultima già stata disar¬ 
cionata, essa verrebbe, per questa 
ragione “ferita”, vale a dire, la sua 
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capacità bellica scenderebbe a 1.5); 
— il ferimento di entrambe le unità 
(in questo caso la capacità bellica 
delle unità in C-2 scenderebbe a 
13.5, mentre quella della B-3 a 1.5). 

Per tutti e tre gli esiti le probabili¬ 
tà di avverarsi sarebbero del 9.8%. 
Nel caso delle truppe russe, non es¬ 
sendoci un esito che preveda, ovvia¬ 
mente il disarcionamento delle uni¬ 
tà, per ragioni di simmetria nella 
determinazione degli esiti, sono pre¬ 
viste doppie possibilità di “ferimen¬ 
to” delle unità coinvolte nello scon¬ 
tro. Abbiamo quindi 23.52% di pro¬ 
babilità che le unità in questione sia¬ 
no “uccise” e 47.06% che siano feri¬ 
te. In quest’ultimo caso, però, poi¬ 
ché una pedina russa è già stata 
ferita, essa viene considerata “mor¬ 
ta” e tolta dal campo di gioco. 

Un altro semplice esempio (vedi 
figura 2), la pedina russa in J-7, pro¬ 
vocherebbe lo scontro muovendo in 
J-8 (tasto corrispondente alla mossa 
suddetta “2”), poiché la pedina teu¬ 
tonica in 1-9 sarebbe aH’interno del¬ 
la sua Z.O.C., unitamente all’unità 
russa in 1-7; dalla Z.O.C. stessa ri¬ 
marrebbe però esclusa l’unità russa 
in H-7, che, così, non partecipereb¬ 
be allo scontro. La somma delle ca¬ 


pacità belliche (supponendo che tut¬ 
te le unità siano al pieno delle loro 
forze) sarebbe di 6 per lo schiera¬ 
mento russo e di 15 per quello teuto¬ 
nico, il che porterebbe a delle proba¬ 
bilità percentuali di 28.57 a 71.43, a 
favore dell’unità teutonica. 

Muovendo invece in 1-8, e coin¬ 
volgendo quindi l’unità russa in H- 
7; la somma delle capacità belliche 
russe salirebbe a 9, ed il rapporto 
percentuale, pur rimanendo a favo¬ 
re della più potente unità teutonica 
(corazzata e a cavallo) sarebbe più 
vantaggioso per lo schieramento 
russo: 37.5 a 62.5. 

I differenti esiti hanno anche ef¬ 
fetti collaterali, oltre quelli, imme¬ 
diati, sulle capacità belliche delle 
unità coinvolte. Nel caso, infatti in 
cui una unità di cavalleria venga 
“disarcionata”, essa non continuerà 
a muoversi alla stessa velocità delle 
sue compagne a cavallo, ma riceverà 
un handicap che ne rallenterà le ca¬ 
pacità di movimento, eguagliandole 
a quelle di una unità di fanteria in 
piena efficienza. Un handicap anco¬ 
ra superiore verrà inflitto alle unità 
a piedi ferite (siano esse russe o unità 
teutoniche appiedate), rallentando¬ 
ne ulteriormente l’avanzamento ad 


una mossa ogni tre di una normale 
unità germanica a cavallo. Un ana¬ 
logo handicap viene inflitto, ma ha 
effetto immediato e limitato alle due 
mosse successive, ad una unità teu¬ 
tonica che venga ferita mentre si tro¬ 
va a cavallo. 

Ad intervalli regolari rispetto allo 
svolgimento della partita (ogni tur¬ 
no completo di mosse per la cavalle¬ 
ria teutonica), il computer provvede 
a calcolare e mostrare il punteggio 
parziale dell’incontro. Esso è calco¬ 
lato in base alla diminuzione di ca¬ 
pacità belliche inflitte all’avversa- 
rio, più un bonus di un punto per 
ogni unità nemica scomparsa dalla 
scacchiera di gioco. Da notare che i 
danni inflitti aN’avversario negli 
scontri vengono sommati a quelli 
provocati da incidenti senza l’inter¬ 
vento di unità nemiche (come unità 
sprofondate nel ghiaccio o, per le 
sole truppe tedesche, impantanate 
nelle paludi). Le condizioni di vitto¬ 
ria che portano alla conclusione del¬ 
l’incontro sono, ovviamente, basate 
sul punteggio suddetto. Esse sono, 
però, espresse in termini di rapporti 
di forza. 

Le capacità belliche complessive 
dei due schieramenti, sono iniziai- 
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Tutti oggi parlano di telematica, di so¬ 
cietà deH'informazione, di banche da¬ 
ti. 

Ma cosa è la telematica? Un Insieme 
di servizi di videoinformazione e tra¬ 
smissione dì dati e testi Innanzitutto la 
videoinformazione. Essa rappresenta 
un servizio che, utilizzando le reti telefo¬ 
niche pubbliche, permette ad un 
qualsiasi utente, dotato di un televiso¬ 
re a colori adatto, di richiedere e rice¬ 
vere informazioni memorizzate su op¬ 
portune banche di dati (Videotel e Te¬ 
levideo). Poi vi sono i servizi pubblici 
per la trasmissione di testi scritti da ter¬ 
minale a terminale ed il fac-simile. Essi 
sono basilari, fra l'altro, per la realizza¬ 
zione della "posta elettronica". 

Le applicazioni della telematica sono 
infinite ed in parte ancora da scoprire. 
Essa è. Innanzitutto, un nuovo e poten¬ 
te "medium" nel campo della comu¬ 
nicazione e dell'Informazione, ma è 
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anche lo strumento principale che ri¬ 
voluzionerà l'organizzazione e la pro¬ 
duttività del lavoro di ufficio, per realiz¬ 
zare quello che si chiama "office auto- 
mation". 

Questo libro intende dare un impulso 
alla conoscenza della telematica, e si 
prefigge di offrire al lettore un panora¬ 
ma dei problemi connessi con questa 
disciplina e con i relativi aspetti appli¬ 
cativi. Le caratteristiche dell'esposizio¬ 
ne fanno si che II volume possa propor¬ 
si indifferentemente all'esperto EDP e 
di organizzazione, quanto allo studio¬ 
so che si accosta per la prima volta a 
questa materia: l'esperto troverà un si¬ 
curo riferimento per la risoluzione di 
problemi teorici e pratici, mentre lo stu¬ 
dioso troverà, In una forma organica, i 
principi fondamentali indispensabili 
per la conoscenza delle varie proble¬ 
matiche. 
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mente calcolate in ragione della 
somma delle capacità belliche delle 
singole unità, più un punto per ogni 
unità che compone ciascuno schie¬ 
ramento. Con queste regole le capa¬ 
cità belliche della formazione teuto¬ 
nica assommano a 480 punti, distri¬ 
buite tra trenta diverse unità. Nel 
caso dell’esercito di Alexander 
Nevskij, le limitate capacità belliche 
delle unità di fanteria portano la po¬ 
tenza complessiva dello schieramen¬ 
to russo a 240 punti, distribuiti, pe¬ 
rò, tra il doppio di unità rispetto allo 
schieramento teutonico. Ciò signifi¬ 
ca che, nel caso delle truppe russe, la 
perdita di una singola unità è meno 
“costosa” rispetto a quelle teutoni¬ 
che: se, infatti, una unità di fanteria 
russa “muore” in uno scontro, la 
diminuzione di potenza per lo schie¬ 
ramento russo è di 4 punti (tre di 
capacità belliche ed uno per la perdi¬ 
ta dell’unità stessa), nel caso in cui, 
invece, lo schieramento teutonico 
perde una unità di cavalleria (anche 
senza che venga coinvolta in uno 
scontro, ad esempio solo perché il 
ghiaccio si rompe), la perdita è di 16 
punti (quindici di capacità belliche). 

Il rapporto di forze iniziale tra i 
due eserciti è, come visto, di due a 
uno in favore dell’esercito teutoni¬ 
co. Le condizioni di vittoria fissate 
per l’esercito germanico prevedono 
che il rapporto di forze venga porta¬ 
to a tre a uno, mentre, affinché vinca 
l’esercito russo, è sufficiente che il 
rapporto di forze sia pari, poiché 
questo significherebbe una netta su¬ 
periorità numerica dell’esercito rus¬ 
so. 

È quindi evidente che, nel caso in 
cui l’attraversamento del lago skri- 
velasse particolarmente sfortunato 
per l’esercito tedesco, anche un rapi¬ 
do e fruttuoso aggiramento del lato 
destro dello schieramento russo non 
impedirebbe a quest’ultimo di ave¬ 
re, con un po’ di pazienza, la meglio. 


Il programma 

Come detto, l’unica scelta che vie¬ 


ne sottoposta al giocatore riguarda 
la direzione in cui spostare la pedina 
cui spetta il turno. In realtà, il gioca¬ 
tore ha anche un’altra opzione a di¬ 
sposizione: rispondendo alla do¬ 
manda, circa quale direzione far 
prendere all’unità, premendo il ta¬ 
sto “0”, il calcolatore provvederà ad 
interrompere la partita ed a dare al 
giocatore l’opportunità di salvare 
una copia della situazione interme¬ 
dia su nastro. Data la “mole” di dati 
necessaria, l’operazione suddetta 
impiega circa sette minuti e valori 
analoghi per ripristinare la situazio¬ 
ne da programma. Dopo di che vie¬ 
ne offerta all’utente l’alternativa tra 
proseguire la partita interrotta o 
porre fine al programma. 

Per quanto riguarda l’algoritmo 
decisionale, responsabile delle mos¬ 
se del calcolatore, esso è organizza¬ 
to, come già in altri wargame da me 
realizzati (il già citato “’ 14-’18” o 
“Abukir 1798”, uscito sul numero 
scorso di Personal Software), con un 
ciclo di valutazione sulle varie mos¬ 
se disponibili per l’unità cui spetta 
muovere. Per quanto riguarda i cri¬ 
teri di valutazione suddetti, si è data 
la precedenza al controllo dello 
svolgimento degli scontri, in modo 
da evitare di affrontarli con rapporti 
di forze inferiori alla parità, il che 
porta, logicamente e abbastanza ve¬ 
rosimilmente, le potenti unità di ca¬ 
valleria teutoniche ad essere parti¬ 
colarmente aggressive, le più deboli 
unità di fanteria russa a tenersi sulla 
difensiva. 

Nel caso in cui la mossa non sia 
influenzata dalla necessità di provo¬ 
care od evitare lo scontro, la valuta¬ 
zione delle mosse viene determinata 
in base a considerazioni strategiche 
(tenere le truppe unite, in modo da 
avere a disposizione in caso di scon¬ 
tro rapporti di forza favorevoli) e, 
per così dire, “geografiche”, vale a 
dire riguardanti la posizione dell’u¬ 
nità cui spetta muoversi relativa¬ 
mente alle posizioni strategiche del 
campo di gioco. 

Pur adottando metodi di valuta¬ 
zione sostanzialmente simili, alme¬ 


no per quel che riguarda la parte 
strategica, la routine in questione si 
è rivelata, per “La battaglia del lago 
ghiacciato”, sensibilmente più len¬ 
ta, rispetto a quella di uguale funzio¬ 
ne inserita in “Abukir 1798”. La dif¬ 
ferenza è, fondamentalmente, data 
dal fatto che, mentre alle navi impe¬ 
gnate nella battaglia di Abukir non 
era consentito compiere virate supe¬ 
riori a 45°, nel caso delle unità de 
“La battaglia del lago ghiacciato” 
sono ammessi sia bruschi cambi di 
direzione che ritirate precipitose, la 
qual cosa rende necessario esamina¬ 
re tutte e nove le alternative che si 
pongono ad ogni mossa, contro le 
tre possibili per “Abukir 1798”. 

Il computer, tutto sommato, si 
comporta piuttosto bene, anche se, 
nella parte del Gran Maestro del¬ 
l’Ordine Teutonico Von Balk, risen¬ 
te degli inevitabili problemi provo¬ 
cati dalla necessità che le pesanti 
unità di cavalleria germaniche cor¬ 
rano l’alea dell’attraversamento del¬ 
la superficie ghiacciata del lago, per 
entrare in contatto con le forze ne¬ 
miche. 

Non ho ritenuto, d’altronde, con¬ 
veniente inserire un meccanismo che 
spingesse le unità tedesche a rimane¬ 
re ferme sulle loro posizioni ad at¬ 
tendere l’attacco delle più deboli 
unità russe poiché questo sarebbe 
stato “antistorico” e non conforme 
con il fatto che i cavalieri dell’Ordi¬ 
ne Teutonico rappresentavano, nel¬ 
la battaglia del lago Cudskoe, l’a¬ 
vanguardia della espansione prus¬ 
siana in oriente. 


Epilogo 

Queste brevi considerazioni con¬ 
cludono la prima parte dell’articolo. 
Diamo appuntamento ai lettori, che 
hanno trovato queste premesse ab¬ 
bastanza interessanti da essere invo¬ 
gliati a conoscere il programma nei 
suoi particolari, al prossimo nume¬ 
ro di Personal Software, su cui ap¬ 
pariranno il listato del programma 
ed i commenti allo stesso. ■ 
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o thello per ZX81 


— Parte prima — 


Presentiamo in questa 
prima puntata 
un famoso gioco 
implementato su ZX81 

di Angelo Motta 

H ai mai giocato ad Othello? 

È facile, anzi la pubblicità 
del gioco dice “è più facile 
imparare a giocarlo che smettere”! 
Ed è vero, è un bellissimo gioco di 
riflessione e strategia. 

Si gioca su una scacchiera di 64 
caselle. Al centro vengono poste, 
due pedine bianche e due pedine ne¬ 
re, al turno, ogni giocatore depone 
una pedina del proprio colore sulla 
scacchiera in modo da racchiudere 
almeno una pedina avversaria fra le 
proprie, se non gli è possibile perde 
il turno. Le pedine imprigionate di¬ 
ventano dello stesso colore di quelle 
del giocatore che ha mosso. Quando 
sono state deposte tutte le 64 pedine, 
vince chi ha più pedine del proprio 
colore. 

Il programma qui presentato è una 
modifica più che una conversione di 
quello apparso su Personal Software 
n. 3 per Atari. 

Infatti, per rendere più veloce la 
risposta del computer, sono state 
scritte alcune parti in linguaggio 
macchina, oltre ad altre modifiche. 
L’impostazione del gioco è rimasta 
invariata; come per i’Atari non biso¬ 
gna inserire delle coordinate per ef¬ 
fettuare la mossa, ma spostare con i 
tasti “freccia” una pedina lampeg¬ 
giante e deporla nella casella deside¬ 
rata premendo il tasto (0). Inoltre, il 
computer non è in grado di capire 
quando il giocatore non può effet¬ 
tuare la mossa; in tal caso basterà 


Byte 

Decimale 

HEX 

Mnemonici 

Note 

16907 

33 

0 

125 

21 

00 

7D 

LD HL, 32000 

Carica la mossa 

16910 

94 



5E 



LD E, (HL) 

nel registro E. 

16911 

1 

8 

0 

01 

08 

00 

LD BC, 8 


16914 

197 



C5 



PUSH BC 


16915 

33 

180 

65 

21 

B4 

41 

LD HL. 16820 

Pone in D la 

16918 

9 



09 



ADD HL. BC 

1° direzione. 

16919 

86 



56 



LD D. (HL) 


16920 

123 



7B 



LD A, E 

Somma la direzione 

16921 

130 



88 



ADD A, D 

alla mossa e la pone in C. 

16922 

79 



4F 



LD C, A 


16923 

33 

255 

119 

21 

FF 

77 

LD HL. 30719 

La casella indicala 

16926 

9 



09 



ADD HL, BC 

dalla direzione è 

16927 

126 



7E 



LD A. (HL) 

occupata dalla pedina 

16928 

33 

10 

125 

21 

0A 

7D 

LD HL, 32010 

avversaria? 

16931 

190 



BE 



CP (HL) 


16932 

32 

25 


20 

19 


JR NZ + 25 

Se no cambia direzione. 

16934 

229 



E5 



PUSH HL 


16935 

121 



79 



LD A, C 

Aggiungi nuovamente 

16936 

130 



82 



ADD A, D 

la direzione. 

16937 

79 



4F 



LD C. A 


16938 

33 

255 

119 

21 

FF 

77 

LD HL, 30719 

La nuova casella è 

16941 

9 



09 



ADD HL, BC 

occupata da una pedina 

16942 

126 



7E 



LD A, (HL) 

avversaria? 

16943 

225 



El 



POP HL 


16944 

190 



BE 



CP (HL) 


16945 

40 

243 


28 

F3 


JR Z - 13 

Se si aggiunge nuova 

16947 

33 

20 

125 

21 

14 

7D 

LD HL, 32020 

direzione la casella è occupata 

16950 

190 



BE 



CP (HL) 

da una pedina propria? 

16951 

32 

6 


20 

06 


JR NZ + 6 

Se no cambia direzione. 

16953 

33 

30 

125 

21 

1E 

7D 

LD HL, 32030 

La mossa è valida 

16956 

115 



73 



LD (HL), E 

ritorna al BASIC. 

16957 

193 



CI 



POP BC 


16958 

201 



C9 



RET 


16959 

193 



CI 



POP BC 

Carica altra direzione 

16960 

13 



OD 



DEC C 

e riprova il controllo. 

16961 

32 

207 


20 

CF 


JR NZ - 49 


16963 

201 



C9 



RET 

Mossa crrata-ritorna 


Ligura 1. Routine in linguaggio macchina relativa al controllo della mossa 
effettuata da entrambi i giocatori. Per inserire i codici usare i listati 2 e 3. 


premere il tasto (1) per passare la 
mossa allo ZX. 

Il programma presentato deve es¬ 
sere inserito in due fasi successive. 
l a fase: inserire la REM 1 di 450 
caratteri e le 77 righe da 100 a 160. 
A questo punto dare il RUN ed inse¬ 
rire i codici del linguaggio macchi¬ 
na. La REM contiene: 

— le variabili fisse per la scelta della 
mossa dello ZX (locazioni da 16514 
a 16613); 

— routine per la stampa della scac¬ 
chiera sul video e per l’inizializza- 


zione delle variabili di controllo gio¬ 
co in RAMTOP (da 16614 a 16820); 

— le variabili per il controllo validi¬ 
tà mossa per entrambi i giocatori 
(da 16820 a 16828); 

— la routine per la scelta della mos¬ 
sa di ZX (da 16829 a 16906); 

— la routine di controllo validità 
della mossa (da 16907 a 16953). 

Una volta inseriti i codici macchi¬ 
na il programma si fermerà e sul 
video apparirà la scritta 9/160. 

A questo punto occorre, per metter¬ 
si al riparo da errori quasi inevitabi- 


44 


































Othello 
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Byte 

Decimale 

HEX 

Mnemonici 

Noie 

16829 

33 

40 

125 

21 

28 

7D 

LD HL, 32040 

Predispone le variabili 

16832 

54 

1 


36 

01 


LD (HL), 1 

nei byle di controllo. 

16834 

33 

10 

125 

21 

0A 

7D 

LD HL, 32010 


16837 

54 

I 


36 

01 


LD (HL), 1 


16839 

33 

20 

125 

21 

14 

7D 

LD HL, 32020 


16842 

54 

2 


36 

02 


LD (HL). 2 


16844 

33 

30 

125 

21 

1E 

7D 

LD HL, 32030 


16847 

54 

1 


36 

01 


LD (HL), 1 


16849 

01 

12 

0 

01 

OC 

00 

LD BC, 12 

Inizio ciclo. 

16852 

197 



C5 



PUSH BC 


16853 

33 

255 

1 19 

21 

FF 

77 

LD HL, 30719 

Controlla che la casella 

16856 

9 



09 



ADD HL, BC 

sia vuota - se occupata 

16857 

126 



7E 



LD A, (HL) 

passa alla successiva. 

16858 

184 



B8 



CP B 


16859 

32 

37 


20 

25 


JR NZ + 37 


16861 

33 

129 

64 

21 

81 

40 

LD HL, 16513 

Carica il valore della 

16864 

229 



E5 



PUSH HL 

matrice di scelta 

16865 

9 



09 



ADD HL, BC 

mossa (vedi figura 2). 

16866 

126 



7E 



LD A, (HL) 


16867 

33 

40 

125 

21 

28 

7D 

LD HL. 32040 

Lo confronta con quello 

16870 

17 

0 

0 

11 

00 

00 

LD DE, 0 

scelto in precedenza 

16873 

94 



5E 



LD E, (HL) 

(a 11'inizio 1 ) e, se , 

16874 

225 



E1 



POP HL 

minore, scarta la 

16875 

25 



19 



ADD HL, DE 

casella c passa alla 

16876 

150 



96 



SUB (HL) 

successiva. 

16877 

250 

3 

66 

FA 

03 

42 

JP M 16899 


16880 

33 

0 

125 

21 

00 

7D 

LD HL. 32000 

Controlla la validità 

16883 

113 



71 



LD (HL), C 

della mossa (vedasi 

16884 

205 

11 

66 

CD 

0B 

42 

CALL 16907 

figura 3). 

16887 

33 

30 

125 

21 

1E 

7D 

LD HL 32030 


16890 

126 



7E 



LD A, (HL) 

Se non valida passa ad 

16891 

33 

40 

125 

21 

28 

7D 

LD HL, 32040 

esaminare la 

16894 

190 



BE 



CP (HL) 

successiva 

16895 

250 

3 

66 

FA 

03 

42 

JP M, 16899 


16898 

119 



77 



LD (HL), A 


16899 

193 



CI 



POP BC 

Seleziona la casella 

16900 

12 



OC 



INC C 

successiva da controllare. 

16901 

121 



79 



LD A, C 

Quando le ha passale 

16902 

254 

90 


FE 

54 


CP 90 

tutte in rassegna 

16904 

200 



C8 



RET Z 

ritorna al BASIC. 

16905 

24 

201 


18 

C9 


JR - 55 



Figura 2. Routine in linguaggio macchina con la quale lo ZX sceglie la mossa 
a! livello 1°. Per inserire i codici usate i listati 2 e 3. 


li, registrare almeno un paio di volte 
il lavoro fatto. 

2 a fase: cancellare le righe da 100 a 
160 ed inserire il resto del program¬ 
ma. Si noti che le linee 100 e 110 
abbassano RAMTOP di 2 Kbyte. 
Per il programma sarebbe bastato 
un abbassamento di un quarto di K; 
ho voluto aumentare la zona dispo¬ 
nibili per lasciare la possibilità di 
duplicare le variabili di controllo 
gioco per chi volesse creare un se¬ 
condo livello di gioco con possibilità 
di analizzare alcune mosse successi¬ 
ve. 


Gestione del gioco 

Per la gestione del gioco viene 
usata una matrice di 100 byte nelle 
locazioni di memoria da 30720 a 
30819 (figura 5). Tale matrice corri¬ 
sponde per le 64 locazioni centrali 
alla scacchiera dello Othello; le re¬ 
stanti 36 locazioni sono il bordo 
esterno della scacchiera, indispensa¬ 
bile per il corretto funzionamento 
del gioco. 

La figura 1 mostra la matrice all’i¬ 
nizio del gioco. I byte contenenti il 
valore 0 corrispondono alle caselle 
libere, quelli col valore 1 alle caselle 
occupate dal giocatore, quelli con 2 
alle caselle occupate dallo ZX e con 
9 il bordo esterno. 

Quando si esegue una mossa è possi¬ 
bile imprigionare le pedine avversa¬ 
rie in 8 direzioni. Queste direzioni si 
riducono a 5 ai bordi e a 3 agli angoli 
(figura 3). 

La funzione del bordo esterno è 
quella di evitare che nell’esecuzione 
della routine per il controllo della 
mossa - più avanti illustrata - e nel¬ 
l’aggiornamento della scacchiera 
(subroutine BASIC dalla linea 800 
alla linea 960) lo ZX fuoriesca dal 
quadro di gioco con spiacevoli ano¬ 


malie di funzionamento. 

Routine di controllo 
della validità della mossa 

La mossa è valida se viene impri¬ 
gionata almeno una pedina avversa¬ 
ria fra una propria già presente sulla 
scacchiera e quella che si depone. 
Nella matrice di 10 x 10 le direzioni 


per muoversi nelle direzioni possibi¬ 
li vengono comodamente indicate 
con — 11 per alto sinistra, — 10 per in 
alto, — 9 per in alto a destra, — 1 per 
a sinistra, + 1 per a destra, +9 per in 
basso a sinistra, + 10 per in basso e 
+ 11 per in basso a destra (si veda la 
figura 4). Queste variabili sono inse¬ 
rite nel programma nella REM ini¬ 
ziale fra le locazioni dal n. 16821 al 
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Othello 
per ZX81 

n. 16828. 

A questo punto occorre aprire una 
parentesi. Se facciamo: 

PRINT PEEK 16821 (NEW LINE) 

sul video apparirà il valore 245 anzi¬ 
ché — 11 sopra descritto. 

Lo stesso vale per le altre locazio¬ 
ni 16822, 16823, 16824 che invece 
dei valori negativi contengono ri¬ 
spettivamente 246, 247, 255. Questo 
perché la CPU Z80 memorizza i nu¬ 
meri negativi nella forma “a com¬ 
plemento a due”. Per chi non cono¬ 
scesse la numerazione binaria in 
complemento a due ne viene fatta 
menzione nel riquadro. 

La routine per il controllo della 
mossa è scritta interamente in lin¬ 
guaggio macchina ed è illustrata nel¬ 
la figura 2. Quando il giocatore sce¬ 
glie la mossa, lo ZX, partendo da 
una delle direzioni sopradescritte, 
controlla se la casella adiacente è 
occupata da una pedina avversaria. 
In caso contrario prova con un’altra 
direzione. 

Se la casella è occupata da una 
pedina avversaria, controlla, sem¬ 
pre nella medesima direzione che la 
successiva sia occupata o da una pe¬ 
dina del giocatore, nel qual caso 
conferma la mossa, o da una pedina 
avversaria, a fronte della quale con¬ 
tinua nella stessa direzione, o da una 
casella vuota o dal bordo esterno e, 
in questo caso cambia la direzione di 
controllo. Se esaurite tutte le otto 
direzioni non è possibile imprigio¬ 
nare alcuna pedina avversaria, viene 
segnalata l’invalidità della mossa. 

Strategia dello ZX81 al 1° livello 

Lo schema di gioco dello ZX al 1° 
livello è abbastanza semplice. 

Ad ogni casella della scacchiera è 
assegnato un valore (figura 6) in ba¬ 
se all’importanza strategica della 
stessa. Si osserva perciò che mentre 
la casella d’angolo ha un valore di 9, 
le adiacenti alla stessa sono valutate 
2 ai bordi ed 1 in diagonale. 
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A mossa d'angolo - 3 direzioni 
B mossa al bordo - 5 direzioni 
C mossa centrale - 8 direzioni 


Figura 3. Tipo di mosse effettuabili e 
relative direzioni di imprigionamento 
pedine avversarie. 



Figura 4. Variabili utilizzate dallo 
ZX (e loro direzioni) per il controllo 
della validità della mossa e per l’ag¬ 
giornamento della scacchiera. 

Il valore di tale caselle è contenuto 
nella REM 1 nelle locazioni da 
16514 a 16613 e sono comprensive 
del bordo esterno il cui valore è 0. 
Al turno lo ZX sceglie, fra le mosse 
possibili, quella la cui casella ha il 
valore strategico più alto. 

La routine per la scelta della mos¬ 
sa al 1° livello, scritta anche essa 
interamente in linguaggio macchi¬ 
na, è illustrata nella figura 1. Inizia 
con l’assegnazione delle variabili di 
controllo: 1 nella locazione 32010 
(pedina del giocatore), 2 nella loca- 


(30720) 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

(30730) 

9 

0 

0 

0 

0 

0 

0 

0 

0 

9 

(30740) 

9 

0 

0 

0 

0 

0 

0 

0 

0 

9 

(30750) 

9 

0 

0 

0 

0 

0 

0 

0 

0 

9 

(30760) 

9 

0 

0 

0 

1 

2 

0 

0 

0 

9 

(30770) 

9 

0 

0 

0 

2 

1 

0 

0 

0 

9 

(30780) 

9 

0 

0 

0 

0 

0 

0 

0 

0 

9 

(30700) 

9 

0 

0 

0 

0 

0 

0 

0 

0 

9 

(30800) 

9 

0 

0 

0 

0 

0 

0 

0 

0 

9 

(30810) 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 


Figura 5. Matrice contenuta nelle lo¬ 
cazioni da 30720 a 30819 contenente 
le variabili per il controllo del gioco: I 
= pedina de! giocatore; 2 = pedina 
dello ZX; 0 = casella libera; 9 — bor¬ 
do della matrice. 


(16514) 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

(16624) 

0 

9 

2 

8 

6 

6 

8 

2 

9 

0 

(16534) 

0 

2 

1 

3 

4 

4 

3 

1 

2 

0 

(16544) 

0 

8 

3 

7 

S 

5 

7 

3 

8 

0 

(16554) 

0 

6 

4 

5 

0 

0 

5 

4 

6 

0 

(16564) 

0 

6 

4 

5 

0 

0 

5 

4 

6 

0 

(16574) 

0 

8 

3 

7 

5 

5 

7 

3 

8 

0 

(16584) 

0 

2 

1 

3 

4 

4 

3 

1 

2 

0 

(16504) 

0 

9 

2 

8 

6 

6 

8 

2 

9 

0 

(16604) 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


Figura 6. Matrice contenuta nelle lo¬ 
cazioni da 16514 a 16613 con inserito 
il valore delle singole caselle della 
scacchiera, in base al quale lo ZX 
sceglie la mossa. 

zione 32020 (pedina dello ZX) e 1 in 
entrambe le locazioni 32030 e 32040 
indispensabili la prima per il con¬ 
trollo della validità della mossa e la 
seconda per la scelta della mossa 
stessa. 

Lo ZX inizia quindi l’esame della 
scacchiera partendo dalla prima ca¬ 
sella in alto a sinistra (la n. 12 - 
figura 5) e, man mano le passa tutte 
in rassegna. Se la casella è occupata 
la scarta e passa alla successiva, al¬ 
trimenti chiama la subroutine per il 
controllo della validità della mossa. 
Se questa non è possibile scarta la 
casella e continua con la prossima, 
se valida controlla, il valore strategi¬ 
co della casella (figura 1) con quello 
della casella il cui numero è conte¬ 
nuto nella locazione 32040 (all’ini- 
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_per ZX81 

zio della routine 1 corrispondente al 
bordo esterno il cui valore è 0). 

Se tale valore è superiore lo ZX 
inserisce nella locazione 32040 il nu¬ 
mero della casella che sta esaminan¬ 
do come possibile mossa, in caso 
contrario scarta la casella e continua 
con la prossima. 

Quando sono state passate in rasse¬ 
gna tutte le 64 caselle, nella locazio¬ 
ne 32040 lo ZX leggerà il numero 
della casella da scegliere come mos¬ 
sa. Se il valore della locazione sarà 1, 
lo ZX farà apparire sullo schermo la 
scritta “NESSUNA MOSSA” e pas¬ 
serà il turno. 

Sul prossimo numero verrà pubbli¬ 
cata un’estensione del programma 
che consentirà di sfidare lo ZX8I al 
2° livello di gioco. 

Ultima nota: il programma è predi¬ 
sposto per lo ZX81 o ZX80 nuova 
ROM + scheda SLOW. È possibile 
inserire delle pause per farlo funzio¬ 
nare con lo ZX80 senza SLOW, ma 
non si ottengono dei buoni risultati 
a causa dell’assenza della pedina 
lampeggiante che crea confusione 
sulla scacchiera. ■ 


Rappresentazione dei numeri binari in complemento a due 


Per quanto riguarda la rappresentazione dei numeri binari si rimanda alla tabella 
“Immagazzinamento di numeri di due byte” apparsa nell’articolo “Linguaggio macchi¬ 
na per ZX8I” di Bruno del Medico sul n. 12/13 della rivista. 

Tale tabella illustra come è possibile ottenere 256 combinazioni di numeri (dallo 0 a 255) 
con 8 bit (1 byte). Questi numeri sono però numeri interi positivi. 

Per ottenere i numeri negativi si usa la notazione in complemento a due. 

Con questa forma i numeri positivi vengono rappresentati sempre allo stesso modo; i 
numeri negativi si ottengono portando a complemento ad uno (ossia lo 0 diventa 1 e I’ I 
diventa 0) il numero positivo ed al risultato ottenuto si aggiunge 1. 

Prendiamo ad esempio il n. Il positivo che nella forma binaria è rappresentato: 

11= 0 0 00 10 1 1 


per ottenere lo stesso numero in negativo si dovrà procedere: 

numero positivo 0 0 0 0 I 0 I I 

complemento ad 1 11110 10 0 


+ I _1 

numero in complemento a due 1 I I 1 0 1 0 I 


= Il 

(somma) 

=- Il 
(o 245 pos.) 


Pertanto, con la notazione in complemento a due in un byte si avranno 127 numeri 
positivi e 128 numeri negativi. 

Un metodo molto più semplice per trovare i numeri negativi, che risulta comodo quando 
si devono effettuare delle POKE o inserire i codici del linguaggio macchina, è di sottrarre 
al numero 256 il numero positivo. Esempio: 256 -11 = 245 che è appunto il corrispon¬ 
dente positivo del - 11 (si veda sopra). 

Per chi volesse meglio approfondire lo studio sulla numerazione binaria e sulla program¬ 
mazione in linguaggio macchina dello Z80, l'autore consiglia il volume “Programmazio¬ 
ne dello Z80" di Rodnay Zaks edito dalla Jackson. 


Listato I. La lunga lista di REM contiene la parte più importante del programma che determina la mossa del computer. 



7Gà77©2TRN PRINT PLOT 
S^sctc* 5**'?©■ 5=?Q ■SS'? 


3^ REM 

J * f «stt* a a—«t — —a ■-*» utrt’ 

77< UNPLOT TRN E£RH 
.3: 'VfjU*4LN NEL RN&TtiTRB PROSE RNC 
3 sj3»s*Ai LN NEU RKDYÉT; LN NEW RNDYg 
NEL RMD71ASN RINKEY$ALN NE 
4 RNDi*7GB70Sr7SJ» < PRINT 7©BW“LN 
4EU RND7$TRB INKEY $ : *V4LN NEU f 

;d?*trb tinkev$» g? gosub pis 

7Gì * V «a© 7© “7©Ì!7©8P 2* s»Vs 
5INKEY*■ & m Y LN BXNKEY *Y»*^**5 ??7 
t UNPLOT :«?«**7© < CL5 7775TAB ». 

INKEY *J***?7 « UNPLOT SG?©“ 70 ■50?©'* 
70® TBN 77777C — 

RUN COPY », 

©■ G £ USL 5 COPY 7W3ND FRST «*? L 
PRINT ; B IF *PI5 77LN '‘PI5a?"PI? 
3T £7 RETURN TCOS /TAN 5 77* M UPt 
L 5®INKETYtas..?S COPY 7»; FRST ? 
1V?S C-OPY ?ì*j=?n4^52??AT TRN RT *4 
IMT TRN 

1©0 POKE 16339,120 
11(5 CLS 

120 LET B=30719 
130 LET D=16S20_ 

14-0 LET R* = '~ 

200 LET NZ=2 
210 LET NT=2 
220 PRINT TRB il; fi* 

22S PRINT ,,,, 

230 PRINT "LO ZX GIOCA CON LE P 
SCINE BXRN- CHE; TU CON LE GRIGE 

‘235 PRINT "MUOUX Lfi PEDINA LAMA 
SGOIANTE NELLR CRSELLR CHE DE 


SIDERI CON 
PREMI (0J 


I TASTI FRECCIA; PCX 
PER FISSARE LA MOSSA 


240 PRINT "QUANDO NON PUOI MUOU 
ERE PREMI (11 PER PASSARE LR M 
OSSO R ZX.” 

250 PRINT , , "QUANDO SEI PRONTO 
PREMI (P) PER INIZIARE IL GIOCO: 

SE OUOI CHE PARTA ZX PREMI (01 
*« 

*270 LET E$=INKEY5 
2S® IF CGDE E*<>53 AND CODE E(( 
>54 THEN GOTO 270 
30® LET L=USR 16619 
310 PRINT RT 0,13;fi* 

320 XF CODE E*=53 THEN GOTO 203 
O 

33® GOTO 2663 
700 GOSUB 1305 

JlNZ THEN PRINT RT 21,7 

7NT THEN PRINT RT 21,£ 

=NT THEN PRINT RT 21,1 



INPUT A* 

CODE (fi*3 =56 


"KEN GOTO 1 


S0© LET N=i 

610 FGR X=I TO S 

S2S> LET Z=PEEK ( D + 13 

030 IF Z>11 THEN LET 2=2-256 

S40 LET K=S+.ì: 

SS® IF PEEK te + Ki < >PE5K 3201® 
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Seguito Listato 1. 


NEH GOTO 95© 

SS© LET K=K4-Z 

67® IF c-eeK (B+K5 =PEEK 3£01S Tr 
SM GOTO ©se 

SS© XF PEcK ; 5>K! >PEEK 3202® V 
HEN GOTO tssa 
630 LE'" K=K-Z 
SOS XF K«s THEK GOTO 353 
91© PRT.M"T ST l- xct (K.'L3 ' +£ . c:<- 

INT (K y le ; * le ) 1-3 - i : ©$ 

2Se "‘OKE ;s•'!<.> . rSEK 32020 
2 3© LE T N1 
943 GOTO fc-,90 


c.~.0 Me v.T x 

95.0 PS ruRW 



•3 1,7, 


20,12;NT; 


"RB 


URN 


1900 PRINT P.T 1 + INT (S/101 r3, (S- 

3NT t s> ,/ie> « 1© > «-3 -1£> $ 

1S1» POKE <B + S> .P€SK 32S20 
1Sì£C 503UE 30» 

ÌS3& REIUnN 
2000 GOSUB ISO© 

20.40 LET 0$ = '’»" 

205© LET S-ll 
2055 LET S=S + X 

SeSO XF FEEK (B+S)<>0 THEN GOTO 
£©55 

£070 PRINT OT i + INT (5/101 *2(S- 
INT (S/10! *10.' *3-1.; "ÌB" 

208® LET F$bINKEY* 

2088 IF CODE F$>36 THEN GOTO 208 
0 

2030 GOTO CODE I F51 *15+£100 
2100 SOSUS 230© 

2110 GOTO 2070 

2300 PRINT RT 1 + XNT (S/13Ì *2, !S- 
INT (S/101 *101 *3-1.; D* 

2305 RETURN 
2520 GOSUB 2300 
2530 GOTO 2700 
2535 GOTO 285© 

2595 LET S=S~i 

2537 IF S=ll THEN LET 5=89 

2599 IF PEEK SB+Sl <>0 THEN GOTO 

2595 

2500 GOTO £100 
2510 LET S=S+10 

2512 XF PEEK CB+S)=9 THEN LET Ss 
3-80 

3514- XF PEEK (B+SJO0 THEN GOTO 
2610 

2816 GOTO £100 
3625 LET S=S-10 

2627 IF PEEK CS+S)=9 THEN LET Ss 
5 + 80 

26S9 XF PEEK 


(B+S)<>0 THEN GOTO 


2625 
£630 GOTO 210© 

£64® LET S=S+1 

£64.2 IF 5=90 THEN LET 5 = 12 

£644- IF PEEK (B + SJ <>© THEN GOTO 

2640 

2645 GOTO 2100 
2700 POKE 3£0£0,1 
2705 POKE 3£©1©,2 
- i>RINT RT £ 1,5.; “| 


tbS 

>710 POKE 32030,3 
£715 POKE 32000,5 
2720 LET L=USR 16207 
2730 XF PEEK 32030 00 THEN GOTO 

£760 _ _ 

£74.0 PRINT RT PI ■ 7 ; “ B BBM H H 

S750 GOTO 2070 
2760 GOSUB 1980 
279® LET NZ=NZ-N+1 
2800 LET NT=NT+N 

264© XF NZ+NT =64 OR NZ=0 THEN GO 
TO 70© 

asse gosub laas 

286© LET DS=" 

£87© LET L=USR 1682S 

3SS0 IF PEEK 3S040 < >1 THEN GOTO 

asa© 


Seguito Listato 1. 

J3S2 PRINT RT £1,16.: 


«I 


■’ssmsmam^ 


124 POR 1=1 TO 51- 
3S25 NEXT I 
£ 8 9 7 PRINT RT g 1 :• : 


•' 1 

£f!©3 GOTO £0©C 
2 PUS LET 5=PLL'\ 

5£20 GOSUD ISO© 

3833 LET MI=Hi+K 

294© LET (jTsNT-Pi 1 
£96© IF N-.-.i.fw J = 64 'T, 

TO *’C 8 
SS9© SOTC S-MZ 
3PC0 SPUE -OTKELL»" 

9 GLVN 

9 : TS *-Ert * “-l.-GELL- i-iOTTP 


KEN GOTO 700 
3£©*i 0 


■iT -& THEN C-0 




3. 

315 

REM C8f:<3(J7TP OR 

45® CRRRTTE 


POR 1*168. 3 4 7 0 

15963 

110 

XtiPV>. 7 


12© 

PRINT X;- s 


© 

POKE 1 . K 


1.40 

J'F PEEK 16418=2 

THEN SCROLL 

15© 

HE XV ~ 


16» 

STOP 



Listato 2. Contatore per la routine in linguaggio mac¬ 
china del listato 3. 


Listato 3. Codici decimali della routine contenuta nella 
REM 1 del listato 1. 

Sono da fornire al programma di caricamento del lista¬ 
to! _ 


16514. 

S; 

© 

16555 


6 

Ì651S 

■S> 

© 

16556 

a 

4 

165 16 

£ 

© 

15S57 

a 

5 

16517 

a 

(T 

16558 

a 

© 

165X3 

3 £- 

© 

16559 

s 

© 

16519 

SS 

© 

16568 

a 

5 

lesa© 

SK 

© 

16561 

a 

4 

16321 

ss 

© 

16562 

a 

6 

16522 

s 

© 

16563 

a 

© 

16523 

r- 

© 

16564 

a 

© 

i&324 


Q 

16565 

a 

6 

16525 

a 

2 

16566 

a 

4 

15526 

SS 

2 

16557 

a 

5 

16587 

a 

8 

1656© 

a 

e 

1552© 

ss 

6 

X6569 

a 

© 

16529 

a 

S 

1657© 

a 

5 

16530 

s 

© 

16571 

a 

4 

16531 

sr 

2 

16572 

a 

6 

16532 

ss 

9 

16573 

a 

© 

16533 

s 

© 

15574 

a 

© 

15534 

ss 

© 

16575 

a 

8 

16535 

ss 

2 

16576 

a 

3 

16536 

SI 

1 

16577 

a 

7 

16537 

SE 

3 

16578 

a 

5 

1653© 

s 

4 

LS579 

a 

5 

16639 

•SE 

4 

1656© 

s 

7 

1654© 

» 

3 

16581 

a 

3 

16541 

a 

1 

16562 

a 

6 

16542 

a 

2 

165S3 

a 

© 

16543 

a 

© 

16564 

a 

© 

1S544 

sz 

© 

16585 

a 

2 

16545 

a 

8 

16586 

a 

1 

1654.6 

a 

3 

16567 

a 

3 

16547 

a 

7 

16588 

a 

4 

16548 

s 

5 

16589 

a 

4 

16549 

ss 

5 

1659© 

a 

3 

1655© 

ss 

7 

16591 

a 

1 

16551 

ss 

3 

16592 

a 

2 

16552 

s 

6 

15593 

a 

© 

16553 

a 

© 

15594 

a 

8 

16554 

a 

© 

f.6595 

a 

9 
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software 
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Nicole Bréaud-Pouliquen 


Franco FMippazzi - Giulio Occhini 


LA PRATICA DELL APPLE 

"Il Sistema APPLE II", il "BASIC Applesoft” 
il disegno e la grafica: arricchiti da esempi e esercizi. 
130 pagine L. 10.000 
Codice 341D 

F. Franceschi™ - F. Paterlini 
Voi • il «ostro Commodoro 84 

Uno strumento fondamentale per la comprensione e 
programmazione del Commodore 64. Con consigli, 
programmi testati, glossario e utili accenni di BASIC. 
256 pagine B L 22.000, Codice 347 

Alan Miller 

PROGRAMMI SCIENTIFICI IN PASCAL 


VOI E L’INFORMATICA 

L'opera che il manager moderno non può ignorare. 
In 100 tavole: gli strumenti dell'Informatica, 
l'Informatica e l'Azienda, realtà e prospettive 
tecnologiche... 

116 pagine L. 15.000 
Codice S26A 

Roland Dubois 

CAPIRE I MICROPROCESSORI 

Un fantastico viaggio alla scoperta del "cervello" 
elettronico: la funzione del microprocessore, 
delle memorie ROM e RAM, delle interfacce... 

126 pagine L. 10.000 
Codice 342A 


Un’opera base per chi desidera costruirsi una 
"libreria" di programmi in grado di risolvere i più 
frequenti problemi scientifici e ingegneristici. 

372 pagine L 25.000 
Codice 554P 

Carmine Elefante 
L'houie computar TI/99-4A 

Il BASIC, il BASIC Esteso e il microprocessore 
dell'tiome computer della T.l. Con programmi di 
utilità e svago. 192 pagine L. 15.000 
Codice 343B 

Giacomino Baisini - Giò Federico Baglio™ 

IL FORTH PER VIC 20 E CBM 64 

La programmazione in FORTH e la sua 
implementazione sul Commodore VIC 20 e CBM 64 
150 pagine L 11.000 
Codice 527B 


Gaetano Marano 
77 PROGRAMMI PER SPECTRUM 

Dalla Grafica alla Business Grafica, dalla musica 
alle animazioni, dai giochi all'elettronica... tutte 
le possibilità offerte da) più piccolo dei computer. 
150 pagine a colori L. 16.000 
Codice 555A 

Rita Bonelli-Daria Gianni 
ALLA SCOPERTA DEL VIC 20 

Un testo chiave per imparare a conoscere e usare 
uno dei Personal del momento. 

308 pagine L. 22.000 
Codice 3380 

Cassetta Programmi L. 15.000 
Floppy Programmi L. 25.000 


La Biblioteca che fa testo 

In busta chiusa, e senza impegno, inviate questo coupon a: 

Gruppo Editoriale Jackson • Via Rosellini, 12 - 20124 Milano 

□ Desidero ricevere gratuitamente il Catalogo Generale della Biblioteca 
Jackson e informazioni sulle IO Riviste specialistiche da voi pubblicate. 

(allego L 1.000in francobolli per contributo spese di spedizione) 

□ Desidero ricevere contrassegno il/i volume/i 


(pagherò al ricevimento L. 

più L 2.000 per contributo spese di spedizione 

Nome_Cognome 

Via____ 

CAP_Città_ 


nuovidea 







































Seguito listalo 3. 


1559© 

-a 

£ 

16669 

a 

6 

16597 

ss 

© 

1667© 

a 

8 

tesse 

B 

& 

16671 

a 

35 

16599 

a 

6 

16672 

a 

54 

1660© 

ss 

© 

16673 

« 

150 

16600. 

a 

2 

16674 

s 

35 

16602 

a 

9 

16675 

a 

54 

16606 

a 

© 

16676 

a 

128 

16604- 

a 

0 

18677 

2 

35 

16805 

a 

© 

16578 

a 

54 

15606 

a 

© 

16679 

3 

128 

15S07 

a 

0 

1568© 

a 

16 

16G0© 

s 

0 

16681 

s 

245 

16809 

rt 

0 

16682 

X 

35 

15610 

B 

0 

16663 

a 

54 

16511 

a 

© 

0.6684 

m 

150 

ì 66 3. ai 

a 

0 

16685 

a 

6 

18613 

a 

0 

16686 

a 

3 

166 3 4 

a 

35 

16687 

a 

205 

152-15 

a 

5.12 

1668© 

« 

230 

16616 

a 

1G 

16689 

a 

64 

15617 

a 

252 

16690 

a 

35 

16810 

£! 

201 

16691 

a 

13 

ÌSS0Ì9 

a 

42 

16692 

3 

124 

itili 

a 

12 

54 

16623 

16694 

a 

a 

0 

65 

1*622 

rr 

14 

16695 

m 

14 

3.8883 

ss 

2 

16696 

m 

3 

Ì8S24- 

a 

62 

16897 

a 

6 

15625 

ir 

12© 

16896 

X 

32 

16526 

a 

© 

16699 

s 

205 

16627 

T-' 

32 

1670© 

a 

230 

2,6 628 

a 

205 

16701 

a 

64 

3 6529 

a 

■238 

16702 

a 

35 

1563S 

a 

64 

16703 

a 

13 

3.6631 

a 

3S 

167C4 

m 

194 

1S332 

a 

13 

16705 

m 

57 

16633 

ss 

le* 

16706 

a 

65 

3 4 

a 

242 

16707 

a 

1 

166.35 

a 

64 

16708 

a 

158 

1S63S 

ss 

14 

16709 

a 

1 

16637 

a 

9 

18710 

a 

237 

16538 

a 

3© 

15711 

a 

66 

15659 

a 

9 

16712 

s 

54 

1664-0 

a 

© 

16713 

s 

S 

1&64. i 

a 

4 

16714 

a 

35 

165*2 

zs 

£05 

16715 

a 

54 

16S43 

a 

230 

16716 

a 

8 

16S44 

a 

64 

1S717 

a 

35 

165*5 

a 

62 

16716 

a 

35 

15545 

a 

15© 

15719 

a 

54 

15847 

a 

6 

X 6720 

a 

0 

1SS48 

ss 

25 

16721 

a 

35 

16649 

s 

205 

Ì.S722 

a 

54 

1685© 

ss 

230 

15723 

a 

© 

15651 

a 

64 

15724 

a 

1 

15652 

s 

62 

16725 

s 

©2 

18653 

a 

12© 

16726 

a 

© 

16654 

a 

6 

16727 

ss 

S 

16655 

a 

3 

1672© 

ss 

54 

16656 

s 

205 

15729 

16730 

a 

0 

16657 

a 

23© 

a 

35 

16656 

a 

64 

15731 

a 

34 

X8659 

s 

35 

3.6732 

a 

© 

18660 

a 

22 

15733 

a 

35 

16661 

a 

202 

16734 

28 


15662 

a 

55 

:.673S 

SS 

54 

16663 

a 

65 

16736 

a 

S 

16664 

a 

6 

5.6737 

a 

35 

16665 

s 

4 

*573© 

a 

54 

16666 

ss 

205 

.16732 

a 

© 

16667 

ss 

230 

1574© 

= 

1 

16666 

a 

64 

16 741 

a 

38 
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CAGLIARI Via Zagabria, 47 
CAITANISSETTA Via R. Settimo, 10 
CAMPOBASSO Via Mons. II Bologna, 10 
CASTELFRANCO VENETO Via S. Pio X, 154 
CATANIA Via Muscatello, 6 
CATANZARO Via XX Settembre, 62 A/B/C 
CESANO MADERNO Via Ferrini, 6 
CESENA Via F.lli Spazzoli, 239 
CINISELLO BALSAMO V.lc Matteotti, 66 
COLICO P.za Cavour, 24 
COMO Via L. Sacco, 3 
CONEGUANO V.le Italia, 128 
CREMA Via IV Novembre, 56/58 
CUNEO Cso Nizza, 16 
EMPOLI Via Masini, 32 
FAVRIA CANAVESE CsoG. Matteotti, 13 
FIRENZE Via G. Milanesi, 28/30 
FIRENZE Via Centostelle, 5/B 
FOGGIA VJe Europa. 44/46 
FORLÌ P.zza Melozzo Degli Ambrogi, 6 

GALLARATE Via A. Da Brescia, 2 
GENOVA Via Domenico Fiasella, 51/R 
GENOVA Via S. Vincenzo, 129/R 
GENOVA-SESTRI Via Chiaravagna, 10/R 
GENOVA-SESTRI Via Ciro Menotti, 136/R 
IMPERIA Via Delbecchi, 32 
LA SPEZIA Via Lunigiana, 481 
LECCE Via Marinosci, 1/3 
LECCO Via L Da Vinci, 7 
LEGNANO C.so Garibaldi, 82 
LIVORNO Via Paoli, 32 
LUCCA Via S. Concordio, 160 
LUGO (RA) Via Magnapassi, 26 

MACERATA Via Spalato, 126 
MANTOVA Via Cavour, 69 
MESSINA Via Del Vespro, 71 
MILANO Via Altaguardia, 2 
MILANO Via G. Cantoni, 7 
MILANO Via E. Petrella, 6 
MILANO Galleria Manzoni, 40 
MIRANO-VENEZIA Via Gramsci, 40 
MODENA Via Fonteraso, 18 
MONFALCONE Via Barbarico, 28 
MONZA Via Azzone Visconti, 39 
MORBEGNO Via Fabani, 31 
NAPOLI Via Morosini, 8 
NAPOLI C.so Vittorio Emanuele, 54 
NAPOLI Via Luca Giordano, 40/42 
NOVARA Via Perazzi, 23/B 
PADOVA Via Fistomba, 8 (Stanga) 

PADOVA Via Piovese, 37 
PALERMO Via Libertà, 191 
PALERMO Via Notarbaitolo, 23 B/C 
PARMA Via Imbriani, 41 
PAVIA Via C. Battisti, 4/A 
PERUGIA Via R. D'Andreotto, 49/55 
PESCARA Via Conte di Ruvo, 134 
PESCARA Via Trieste, 73 
PIACENZA Via IV Novembre. 60 
PISA Via Emilia, 36 
PISA Via XXIV Maggio, 101 
PISTOLA V.le Adua, 350 
POMEZIA Via Roma, 39 
POTENZA Via G. Mazzini, 72 
POZZUOLI Via G.B. Pergolesi, 13 
PRATO Via E. Boni, 76/78 
RECCO Via B. Assereto, 78 
REGGIO CALABRIA Via S. Marco, 8/B 
RI MINI Via Bettola, 75 
ROMA P.za San Donà di Piave, 14 
ROMA Via G. Villani, 24-26 
ROMA V.le dei IV Venti, 152/F 
ROMA Via Valsavaranches, 18/26 

S. DONÀ DI PIAVE P.zza Rizzo, 61 
SALERNO C.so Garibaldi, 56 
SANREMO Via S. Pietro Agosti, 54/56 
SASSUOLO P.zza Martiri Partigiani, 31 
SESTO CALENDE Via S. Vincenzo, 8 
SENIGALLIA Via Maierini, 10 
SIRACUSA Viale Scala Greca, 339/9 
SORRENTO V.le Degli Aranci, 31/M/L 

TARANTO Via Polibio, 7/A 
TERMOLI Via Martiri della Resistenza, 88 
TORINO C.so Grosseto, 209 
TORINO Via Tripoli, 179 
TORINO Via Nizza, 91 
TORINO C.so Racconigi, 26 
TRENTO Via Sighele, 7/1 
TREVISO Via IV Movembre, 13 A 
TRIE STE Via Fabio Severo, 138 
TRIESTE Via Torrebianca, 18 
TRIESTE Via Paolo Reti, 6 
UDINE Via Tavagnacco, 89/91 
VARESE Via Carrobbio, 13 
VENEZIA Cannaregio, 5898 
VERCELLI Via Dionisotti, 18 
VIAREGGIO Via A. Volta, 79 
VICENZA Via del Progresso, 7/9 
VIGEVANO C.so V. Emanuele, 82 
VOGHERA Rzza G. Carducci, 11 

COMPETENZA in COMPUTER 














Presso i Bit Shop Primavera 

il software di casa... 




ATIC ATAC - 48 K 

lo non ho mai creduto In fantasmi o mostri, 
ma quando l'enorme portone del castello si è 
chiuso dietro di me e le porta del castello 
cominciano ad aprirsi e chiudersi da soie e 
strane ombre si materializzano, freddi brividi 
cominciano a correre lungo la schiena. 
Velocità, coraggio, astuzia ecco le doti 
necessarie per sfuggire al castello incantato. 


ACQUAPLANE - 16 K 
Avreste mal pensato che praticare lo sci 
d'acqua potrebbe rivelarsi estremamente 
pericoloso? Jack Hollis, l'autore di Acquaplano 
pensa proprio di si. Il gioco, possiede tutte le 
caratteristiche per essere avvincente ed 
entusiasmante, la nostra abilità di sciatore sarà 
messa a dura prova. 


BUBBLE TROUBLE - 48 K 

Eccoci nelle insolite vesti di ladro di gioielli 

inseguito da terribili bolle di sapone. 

Un nuovo fantastico gioco della serie "Arcade" 
con ben 60 schermi differenti selezionabjli. 

Tre differenti livelli di velocità un' alta 
risoluzione grafica, un eccelenta uso del colore 
e del suono. 


...sul vostro 


ZX Spectrum 

naturalmente 


comPETEnsfl 
in cnmpuTER 











Othello 
per ZX81 
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Roland Dubois 

Capire i Microprocessori 


Dal 1972, loro data di 
nascita, ai giorni nostri: la 
fantastica rivoluzione 
determinata dall’invenzione 
del microprocessore e del 
microcalcolatore. 

Un libro che spiega, in forma 
chiara e dettagliata, la 
funzione del 
microprocessore, delle 
memorie ROM e RAM, delle 
interfacce... 

Con numerosi schemi di 
collegamento, esempi di 
programmi, esauriente 
presentazione dei principali 
microprocessori sul mercato 
128 pagine 
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Calcolo dei passaggi 
di satelliti artificiali 


di Angelo De Santis 

Q uesto programma in BA¬ 
SIC prevede il tempo e la 
longitudine di passaggio di 
un satellite artificiale per il “nodo 
ascendente” conoscendone il perio¬ 
do orbitale, il tempo e la longitudine 
geografica di un dato nodo. 

Il “nodo ascendente” è il punto del 
cielo più conveniente per individua¬ 
re il passaggio di un satellite artifi¬ 
ciale, cioè l’intersezione del piano 
equatoriale terrestre con il piano or¬ 
bitale del satellite quando quest’ulti¬ 
mo sale da sud verso nord (figura 1). 

Il programma chiede il numero di 
passaggi che devono essere calcolati 
e quindi dà in uscita: data, tempo 
principale di Greenwich e longitudi¬ 
ne ovest dei passaggi successivi a 
questo indicato, assumendo che il 
satellite sia su un orbita circolare. 
NeU’impostare i dati di ingresso oc¬ 
corre rispettare il seguente formato: 
data in numeri, tempo Greenwich 
sulle 24 ore e longitudine ovest in 
gradi. 

Come esempio sono riportati il 
caso del primo satellite della storia 
cioè lo Sputnik I, e quello dell’ame- 
rican© Oscar (tabelle 1 e 2). 
Informazioni riguardo altri satelliti 
possono essere ottenute da pubbli¬ 
cazioni americane o sovietiche per 
radioamatori oppure direttamente 
dalla N.A.S.A. 


Riferimenti bibliografici 

a) D. Eagle, “Computing Crossing 
data for Earth satellites”, Elec¬ 


tronics, 27 Gennaio 1983. 

b) J. Molnar, “TI-59 program 
tracks satellites in eiliptical or- 
bits”, Electronics, 6 Ottobre 
1981. 

c) A. Shternfeld, “Soviet Space | 


Science”, Hutchinson, London, 
1959. 

d) H. Oberth ed altri, “Vistas in 
Astronautics”, Pergamon Press. 
1958. ■ 



PERIODO ORBITALE (MIN.) : 102.85? 
DATA DI UN PASSAGGIO CONOSCIUTO 
GIORNO:6 MESE:10 

ANNO : 195? 

TEMPO ORA GREENUICH 
ORA. 6 MINUTI:0 

SECONDI:0 

LONGITUDINE QUEST(GRADI) 

35.5 

NUMERO PASSAGGI EQUATORIALI»!» 



DATA 

ORA 


LONG . 

6 

10 

19S7 

7 

4-2 

51 

61.214.24.0 

S 

IO 

1957 

9 

25 

4-2 

36.9234.95 

s 

10 

1957 

11 

5 

33 

112.64.274. 

6 

10 

195? 

12 

51 

24. 

138.35699 

5 

10 

19S? 

14- 

34- 

15 

164.. 07124- 

ò 

10 

19S7 

ie 

17 

3 

189.7854.9 

S 

10 

1957 

17 

59 

57 

215.4-9973 

s 

10 

1957 

19 

4-2 

4-3 

24-1.21398 

s 

10 

1957 

21 

25 

39 

266.92323 

s 

10 

1957 

23 

3 

30 

292.64.24.3 

? 

10 

1957 

0 

51 

21 

318.35672 

7 

10 

1957 

2 

34. 

12 

34.4.. 07097 

7 

IO 

1957 

4. 

17 

3 

9.7852178 

7 

10 

1957 

5 

59 

54- 

35.499465 

7 

10 

1957 

7 

4.2 

4-5 

61.213713 


Tabella 1. Dati relativi ai satellite Sputnik I. 
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SATEL ; OSCAR 

PERIODO ORBITALE (MIN. ):103•1836 

DATA DI UN PASSAGGIO CONOSCIUTO 
GIORNO.2 MESE:6 

ANNO : 1982 

TEMPO ORA GREENUICH 

ORA : 2 MINUTI:50 

SECONDI: 36 

LONGITUDINE OVEST(GRADI) 

103.3385 

NUMERO PASSAGGI EQUATORIALI»17 



DATA 

ORA 


LONG. 

2 

6 

1982 

4 

33 

47 

134 .634.4. 

2 

6 

1982 

6 

16 

58 

160.4303 

2 

6 

1982 

8 

0 

9 

186.22619 

2 

6 

1982 

9 

43 

20 

212.02209 

a 

6 

1982 

11 

26 

31 

237.81799 

a 

6 

1982 

13 

9 

42 

263.61389 

2 

6 

1982 

14 

52 

53 

289.40978 

a 

6 

1982 

1S 

36 

4 

315.20888 

5 

6 

1982 

18 

19 

15 

341.00188 

a 

6 

1932 

20 

2 

26 

8.797475 

a 

6 

1982 

21 

45 

37 

32.593373 

a 

6 

1982 

23 

28 

48 

56.38927 

3 

6 

1982 

1 

11 

59 

84.185168 

3 

6 

1982 

2 

55 

10 

109.98107 

3 

6 

1982 

4 

38 

21 

135.77696 

3 

6 

1982 

6 

21 

32 

161.57286 

3 

6 

1932 

a 

4 

43 

187.36876 


Tabella 2. Dati relativi a! satellite Oscar. 


Listato 1. Listato del programma per il calcolo dei 
passaggi di un satellite in orbita circolare per il nodo 
ascendente. 


1010 LET 16.25) / 

36524- . 25) 

1014 LET A=J1+A-INT (A/4)+1 
1020 LET B=A+1524 

1023 LET C = INT ((B-122.1)/365.25 

) 

1025 LET D = INT (365.25*0 
1030 LET E = INT ( (B-D) /30.6001) 
1032 LET D2=B-D-INT (30.6001*E> 
1035 LET M2=E-13 

1040 IF E<13.5 THEN LET M2=E-1 
1050 IF Y2=C-471S AND M2>2.5 THE 
N LET Y2=C—4716 
1060 RETURN 

1070 REM _ 

2010 PRINT D2;TAB n 3?M2 JtAB 6;Y2; 
tab 13; HI) TAB 16; MI; TAB 19;Si;TR 
B 23; LiyRO 
2015 LET NZ=NZ+1 

2017 IF NZ >17 THEN PRINT AT 1,0; 

2018 IF NZ >17 THEN LET NZ = 0 
2020 RETURN 


1 REM MÌM41 

2 REM CALCOLO NODI ASCENDENTI 

3 REM DI SATELLITI TERRESTRI 
5 REM fi.DE SANTIS 

10 REM 

20 LET R0=PI/180 
14-0 PRINT TAB 10; "SATEL” , , 

150 PRINT -PERIODO ORBITALE «MI 
N .)■."; 

152 INPUT TI 

160 PRINT T1/TAB O;"DATA DI UN 


PASSAGGIO CONOSCIUTO" 

161 LET TI=T1*60 

162 PRINT "GIORNO:"; 

163 INPUT D2 

165 PRINT D2,"MESE : "; 

166 INPUT M2 

168 PRINT M2,"RNNO:"; 

169 INPUT Y2 

170 PRINT Y2, , "TEMPO ORA GREENU 

ICH" 

172 PRINT "ORA:"; 

173 INPUT HI 

175 PRINT HI,"MINUTI:"; 

176 INPUT MI 

178 PRINT MI,"SECONDI:"; 

179 INPUT SI 

180 PRINT SI,,"LONGITUDINE OUES 
T (GRADI) " 

182 INPUT LI 

190 PRINT LI,,"NUMERO PASSAGGI 
EOUATORIALI="; 

191 LET L1=L1*R0 

192 INPUT NI 

193 PRINT NI 
197 LET NZ=0 
200 REM 

205 CLS 

210 PRINT TAB 3;"DATA";TAB 14;" 
ORA";TAB 24; "LONG." 

220 REM 

230 REM CALCOLO INTERVALLO DI T 

SMPO 
240 REM 

250 LET 01=367 *Y2-INT (7*((Y2 + I 
NT ( (M2+9) /12) ) /4) ) +INT (275*M2^ 
9)+D2+1721014 

260 LET Al=7.27220451E-5*T1 
265 LET 02=11/3600 
268 LET A3 = INT (A2) 

270 LET A4=60*(A2-R3) 

273 LET A5 = INT (A4) 

276 LET A6*INT (60*(A4-A5)♦.5) 
2B0 REM 

290 REM CALCOLO PASSAGGI SUCCES 
3 IVI 
300 REM 

310 FOR 1=1 TO NI 
320 LET L1=L1+A1 

330 IF L1>2*PI THEN LET Ll»Ll-2 

*PI 

340 LET HI=H1+R3 
343 LET M1=M1+A5 
346 LET S1=S1+R6 

349 IF SI>=60 THEN LET M1=M1+1 

350 IF SI>=60 THEN LET Sl=Sl-60 

360 IF MI>=60 THEN LET H1=H1+1 

361 IF MI>=60 THEN LET Ml=Ml-60 
370 IF HI>=24 AND M1>0 THEN LET 
01=01+1 

372 IF HI>=24 AND M1>0 TMEN LET 

H1=H1—24 

330 GOSUB 1010 

390 GOSUB 2010 

400 NEXT I 

410 REM 

420 PRINT RT 18,0;"UN*ALTRA SEL 
fcZIONE?(1=SI,0 =NO) " 

422 INPUT A 

424 IF A =0 THEN GOTO 450 
430 PRINT "UN ALTRO SATELLITE C 
1=51,0=NO)?" 

432 INPUT A 
434 IF A = 1 THEN CLS 
436 IF A=1 THEN GOTO 150 
440 PAINT "UN ALTRO PASSAGGIO C 
QNOSCIUTO71/0" 

442 INPUT A 

443 IF A = 1 THEN CLS 

446 IF A = 1 THEN GOTO 160 
450 STOP 
460 REM 
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Alla scoperta 
del circuito VICII 
per realizzare 
movimento 
e colore degli Sprite 


di Flavio Stella 


O gni disegno che la fantasia 
suggerisce può essere rap¬ 
presentato per mezzo di 
una matrice binaria, a patto che si 
conceda una certa perdita di risolu¬ 
zione. Nel caso degli Sprite la matri¬ 
ce 21 x 24 destinata a contenerli si 
può convertire in una serie di nume¬ 
ri decimali che, opportunamente 
memorizzati nel C 64, possono esse¬ 
re trasformati in figure animate. 

La materia prima su cui lavorere¬ 
mo nei paragrafi seguenti sarà, 
quindi, questa serie di 64 numeri; 
posizione, movimento e colore sa¬ 
ranno stimolanti obiettivi. 


Il circuito VICII 

Il circuito VICII consiste di una 
serie di 47 locazioni RAM (da 53248 
a 53294), definite registri, che sono 
dedicate a ricevere ed a conservare le 
informazioni necessarie alla gestio¬ 
ne degli sprite e, più in generale, 
della grafica del C 64. 

Si può immaginare questo dispo¬ 
sitivo come un pannello di comando 
contenente alcune serie di otto inter¬ 
ruttori, numerate da 0 a 46; ciascuno 
di questi interruttori presiede ad una 
funzione specifica, o a parte di essa 
influenzandone lo svolgimento a se- 
conda della sua posizione 
(ON/OFF). Per intervenire su que- 
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fiND OR 



0 

1 

0 

0 

0 

1 

0 

1 



0 

1 

0 

0 

1 

1 

1 

1 


<137) 10001001 AND 

< 36) 00100100 = 

< 0 ) 00000000 * 

< 53) 00110101 AND 

< 43) 00101011 = 

< 33) ‘ 00010001 * 


10001001 OR 
00100100 = 

10101101 * <173) 

00110101 OR 
00101011 = 

00111111 * < 63) 


Figura 1. Operazioni binane con AND e OR. 


sti immaginari interruttori useremo 
l’istruzione POKE in modo oppor¬ 
tuno (figura 1). Il VICII è predispo¬ 
sto per controllare simultaneamente 
16 Kbyte di memoria e quindi, con¬ 
siderata la capacità totale di 64 
Kbyte, si possono definire quattro 
sezioni o banchi a cui fa riferimento, 
che devono contenere tutti i dati e le 
aree di memoria che interessano la 
grafica cioè: il generatore di caratte¬ 
ri, la memoria di schermo, le loca¬ 
zioni dedicate agli sprite ed even¬ 
tualmente gli 8 Kbyte dedicati al 
modo bit map (alta risoluzione). I 
valori di default, cioè ottenuti auto¬ 
maticamente all’accensione del 
computer senza interventi esterni, 
sono: 


Banco di memoria 
RAM video 
Puntatori di sprite 
RAM caratteri 


#0 (0-16383) 
1024-2023 
2040-2047 
4096-6143 


È sempre possibile modificare 
questi valori intervenendo sulla lo¬ 
cazione 53272 (bit 7-4 video RAM/ 


bit 3-1 caratteri); i puntatori di spri¬ 
te occupano sempre gli ultimi otto 
byte dei 1024 dedicati alla memoria 
video. Questi otto “registri” indica¬ 
no al VICII dove trovare i dati che 
codificano il disegno; i valori am¬ 
messi sono nella gamma 0-255, per 
un totale di 256 (quante sono le se¬ 
zioni di 64 byte ricavabili da 16 
Kbyte (256 ★ 64 = 16384). 


Dove memorizzare i dati 

I dati che codificano la forma del¬ 
lo sprite trovano disponibile un’a¬ 
rea, che però è libera anche ai pro¬ 
grammi BASIC; la sovrapposizione 
dei dati sui programmi, o viceversa, 
causerebbe ovvi scompensi è consi¬ 
gliabile dunque utilizzare, ove possi¬ 
bile, il buffer della cassetta (828- 
1019) che limita però il numero degli 
sprite a tre (puntatori a 13, 14, 15); 
altra soluzione è lo spostare l’inizio 
del BASIC e creare spazio per la 
propria applicazione. Nella maggior 




































parte dei casi è però sufficiente man¬ 
tenere gli sprite in fondo ai 16 Kbyte 
disponibili (puntatori oltre 192), in 
quanto programmi molto lunghi 
causerebbero una lentezza inaccet¬ 
tabile e forzerebbero l’uso del lin¬ 
guaggio macchina. 


I registri del VICII 

La tabella 1 mostra le funzioni dei 
registri e li numera in modo che, 
presa come base la locazione 53248 
(V = 53248), la loro posizione sia 
ottenibile con una banale somma (V 
+ # registro). 

La prima funzione che incontria¬ 
mo nella creazione di un program¬ 
ma sprite è Vabilitazione (cioè accen¬ 
sione) che è controllata dal registro 
#21; ogni bit (interruttore) di que¬ 
sto registro accende uno sprite se in 
posizione 1 (on) (figura 1). 

Esempio: 

abilitare sprite 0 e 3: 

POKEV + 21,9 (00001001 = 9) 

Il posizionamento dello sprite ri¬ 
spetto al quadro video fa riferimen¬ 
to all’angolo superiore sinistro della 
matrice che lo contiene. Lungo l’as¬ 
se orizzontale (x) lo spostamento 
può oscillare tra 0 e 320, mentre va 
da 0 a 200 per quello verticale (y). 

I registri interessati sono i primi 
17 (#0-# 16); nelle coppie 0/1,2/3, 
ecc. troveranno posto, rispettiva¬ 
mente, la coordinata x (low byte) e 
la y; il registro # 16 è stato creato, 
invece, per ospitare il nono bit 
(high) della coordinata x, che, come 
sappiamo, può superare il valore 
255 contenibile in un solo byte (max 
100100000 = 320). Il bit alto della 
posizione orizzontale è registrato 
dall’interruttore corrispondente al¬ 
lo sprite. 
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Figura 2. Lettura di un bit per l’analisi delle collisioni. 


Registro # 
decimale 

Bii 7 

Bit 6 

Bit S 

Bil 4 

Bil 3 

Bit 2 

Bil 1 

Bil 0 


! 0 

S0X7 

S0X6 

S0X5 

S0X4 

S0X3 

S0X2 

S0X1 

SOXO 

Sprite 0 X 

1 

S0Y7 







S0Y0 

Sprite 0 Y 

: 2 

SIX7 







SIX0 

Sprite I X 

3 

SI Y7 







S1Y0 

Sprite 1 Y 

4 

S2X7 







S2X0 

Sprite 2 X 

! 5 

S2Y7 







S2Y0 

Sprite 2 Y 

6 

S3X7 







S3X0 

Sprite 3 X 

7 

S3Y7 







S3Y0 

Sprite 3 Y 

8 

S4X7 







S4X0 

Sprite 4 X 

9 

S4Y7 







S4Y0 

Sprite 4 Y 

10 

S5X7 







S5X0 

Sprite 5 X 

11 

S5Y7 







S5Y0 

Sprite 5 Y 

12 

S6X7 







S6X0 

Sprite 6 X 

13 

S6Y7 







S6Y0 

Sprite 6 Y 

14 

S7X7 







S7X0 

Sprite 7 X 

15 

S7Y7 







S7Y0 

Sprite 7 Y 

16 

S7X8 

S6X8 

S5X8 

S4X8 

S3X8 

S2X8 

SIX8 

S0X8 

Bit alti del 
valore-X 

17 

RC8 

EC5 

BSM 

BLNK 

RSEL 

YSCL2 

YSCLI 

YSCL0 


18 

RC7 

RC6 

RC5 

RC4 

RC3 

RC2 

RCI 

RCO 

Tavola 

19 

1.PX7 







LPX0 

Light pen X 

20 

LPY7 







LPY0 

Light pen Y 

21 

SE7 







SEO 

Sprite 

Enable 

! 22 

N.C. 

N.C. 

RST 

MCM 

CSEL 

XSCI.2 

XSCLI 

XSCL0 


23 

5EXY7 







SEXY0 

Sprite 

EXPANDY 


Tabella 1. Registri del VICII e loro funzioni. 
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Esempio: 

x = 125 y = 80 sprite # 0 
POKEV + 0,125: POKEV + 1,80 
x = 300 y = 172 sprite 3 
POKEV + 6, (300-255): 

POKEV + 16,213 (00001000 = 8) 
POKEV + 7,172 

Il colore è codificato numerica- 
mente come da tabella 2 ed i valori 
prescelti devono essere impostati nei 
registri dal # 32 in poi. 

Esempio: 

Margine rosso POKEV + 32,2 

Fondo grigio POKEV + 

33,11 

Sprite # 2 nero POKEV + 41,0 


Riepilogo 

La creazione di uno sprite passa 
attraverso 5 fasi. 

1 - Codificare il disegno. 

2 - Memorizzare i numeri ottenuti 
scegliendo una posizione opportuna 
ed agendo quindi sui puntatori si¬ 
tuati in fondo alla video RAM (valo¬ 
ri consigliati 13, 14, 15 oppure oltre 
192). 

3 - Abilitare lo sprite interessato 
“accendendo” il bit corrispondente 
nel registro #21. 

4 - Scegliere il colore ed inserire il 
codice in uno dei registri da # 39 a # 
46. 

5 - Posizionare lo sprite con oppor¬ 
tuni valori nei registri da # 0 a # 15 e 
# 16 (bit alto dell’ascissa x). 


Sprite loader 

Nella prima parte era stato pro¬ 
posto un programma (Sprite dra- 
wer) che offriva, tra le varie possibi¬ 
lità di output della codifica decimale 
di un disegno, la registrazione su 
nastro; coloro che hanno già utiliz¬ 
zato questa procedura potranno 
giovarsi immediatamente di questo 
accessorio. Sprite loader (listato 1) è 
un programma particolare, inquan¬ 
to si auto-modifica durante la sua 


Registro # 
decimale 

Bit 7 

Bit ft 

Bit 5 

Bit 4 

Bit 3 

Bit 2 

Bit 1 

Bit 0 


24 

VSI3 

VS12 

VSI1 

CB13 

CBI2 

CB11 

CB10 

N.C. 

Memoria video 

25 

IRQ 

N.C. 

N.C. 

N.C. 

LP1RQ 

ISSC 

ISBC 

RIRQ 

Interrupt 

Request’s 

26 

N.C. 

N.C. 

N.C. 

N.C. 

MLPI 

MISSC 

MISBC 

MRIRQ 

Interrupt 

Request 

MASKS 

27 

BSP7 







BSP0 

Priorità 

Sfondo 

Sprite 

28 

SCM7 







SCM0 

Selezione 

Sprite 

Multicolore 

29 

SEXX7 







SEXXO 

Espansione X 
dello Sprite 

30 

SSC7 







SSCO 

Collisione 

Sprite-Sprite 

31 

SBC7 







SBC0 

Collisione 

Sprite-Sfondo 

Registro # 
decimale 

Bit 7 

Bit 6 

Bit S 

Bit 4 

Bit 3 

Bit 2 

Bit 1 

Bit 0 


32 









Margine 

33 









Sfondo 0 

34 









Sfondo 1 

35 









Sfondo 2 

36 









Sfondo 3 

37 









SMC0 







Sprite Multicolori 


38 









SMC1 

39 









Colore Sprite 0 

40 









Colore Sprite 1 

41 









Colore Sprite 2 

42 









Colore Sprite 3 

i 43 









Colore Sprite 4 

44 









Colore Sprite 5 

45 









Colore Sprite 6 

46 









Colore Sprite 7 


Tabella 2. Colori e loro codice numerico. 


esecuzione, sino a diventare un nuo¬ 
vo programma con scopi e struttura 
diversi. 

La prima parte (linee 1-6) carica 
dalla cassetta l’insieme di 64 numeri 
necessari alla costruzione di uno 
sprite e li dispone sullo schermo co¬ 
me nuove righe di programma, pre¬ 
cedute dalla istruzione DATA. La 
fase successiva “inganna” il compu¬ 


ter, caricando il buffer della tastiera 
come se ci fosse stata la pressione, 
per 10 volte consecutive del tasto 
RETURN: ciò causa la sostituzione 
delle nuove righe alle precedenti ed 
esegue un RUN per il nuovo pro¬ 
gramma (listato lb) che contiene le 
linee DATA e le istruzioni per la 
gestione dello sprite, che subito ap¬ 
pare in uno smagliante azzurro ed in 
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Sprite 
per C 64 


doppia grandezza, muovendosi in 
diagonale con discreta velocità. 

Per coloro che vorranno utilizza¬ 
re un input da tastiera, il listato 2 
fornisce le modifiche da apportare 
alle prime sei righe mentre la parte 
successiva è da considerarsi invaria¬ 
ta. 

Una volta ottenuta la trasforma¬ 
zione, è possibile modificare o am¬ 
pliare il nucleo base per ottenere i 
programmi più disparati, unico li¬ 
mite: la fantasia! 


Optional 

Come si può notare da un con¬ 
fronto con la tabella 1, alcuni regi¬ 
stri non sono stati citati nel paragra¬ 
fo precedente; vediamo sintetica¬ 
mente i più importanti. 

# 24 Questa è la locazione 53272, di 
cui si è detto, che modifica la posi¬ 
zione della video RAM. 

# 27 Se il bit corrispondente allo 
sprite è a uno, i caratteri visualizzati 
sullo schermo hanno priorità, cioè si 
sovrappongono allo sprite. Le prio¬ 
rità tra sprite sono invece fisse, col 
criterio che a sprite con numero 
d’ordine più alto si sovrappongono 
gli altri. 

# 29 - # 23 Consentono di raddop¬ 
piare la dimensione dello sprite, ri¬ 
spettivamente nelle direzioni x e y. 


Collisione 

Particolare attenzione meritano i 
registri # 30 e # 31, che permettono 
di rilevare eventuali collisioni, sco¬ 
po forse primario in qualsiasi utiliz¬ 
zo non semplicemente decorativo. 

Anche questi registri, per esigenze 
di compattezza, attribuiscono a cia¬ 
scuno sprite un solo bit, cosicché la 
collisione dello sprite # 1 con il # 3 
causerà l’accensione del secondo e 
quarto bit del registro # 30. La tec¬ 
nica di lettura è basata sull’uso del¬ 
l’istruzione PEEK e dell’operatore 
AND, come illustrato in figura 2. 


=+==* SPRITE LORDER *=*= 


1 PRINT" [< 1 CLR>J LC3CRSF: D>] POSIZIONA LA 

CASSETTA E ECICRSR D>3PR 

EMI UH TASTO QUALSIASI" 

2 GETA$:IFA$»""THEN2 

3 OPEN 1,1,0 : N=0 : PR I NT " C < 1 CLR> ] C C2CRSR D> 
3 " 

4 FGRX-0TO7:N=N+1 :PRINTN"DATA"; 

5 FORV=0TO7 :1NF'UT# 1, A : A*=MID$<STR*<A>, 2> 
+ ' V : PR INTftt.: : NEXTV : PR I NT " C C1CRSR L> 3 " : 
NEXTX 

6 CLOSE1 :PRINT"9":PRINT"RUN" 

3 PRINT"C <1H0ME>]":POKE198,10:FORI*0TO9 : 
P0KE631 + 1,13 :NEXT : END 
1@ PRINT"[C1CLR>]":V=53248:POKE2040,192: 
FORI = 12288T012350 : READA :P0KEI,A :NEXT:PQK 
EV+21,1 

11 REM X «EXPAND# V : «COLORE# 

12 POKEV+23,1 :POKEV+23,1 : POKEV+39,3 

49 REM ##* MOVIMENTO #### 

50 FORP=60TO200 : POKEV, P : PGKEV+1P : NEXT 
60 FORP=200TO60STEP-1:POKEV,P:POKEV+1,P: 
NEXT:GOTQ50 


Listato 1. Il programma iniziale Sprite loader. 


X DATA0,0,0,0,0,0,0,8 

2 DATA0,0,46,0,0,191,128,2 

3 DATA255,224,11,247,248,11,213,248 

4 DATAI 1,85,120,11,81,120,11,81 

5 DATAI20,11,85,120,11,213,248,11 

6 DATA247,248,2,255,224,0,191,128 

7 DATA0,46,0,0,8,0,0,0 

8 DATA©,0,0,0,0,0,0,0 

10 PRINT"C< 1 CLR>3 " ; V*53248 ; POKE2040,192 : 
FORI = 12288T012350 :READA ; P0KEI,A :NEXT:POK 
EV+21,1 

11 POKEV+28,1 :POKEV+37,2 :POKEV+38,0 : REM 
AGGIUNTA PER MULTICOLOR 

12 POKEV+29,1 : POKEV+23,1 :POKEV+39,3 

49 REM *** MOVIMENTO #### 

50 FORP=60TO200:POKEV,P:P0KEV+1, P = NEXT 
60 FORP=200TO60STEP-1 : POKEV,P:P0KEV+1,P■ 
NEXT:GOTO50 


Listato lb. Lo stesso programma de! listato 1, dopo la auto-modifica. 


Nota particolare è che il bit posto 
a uno vi rimane sino a che non viene 


letto con una PEEK, che in questo 
caso legge e cancella, cosicché, dopo 
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non ifxor 

INPUT riR TASTI ERR 

1 T £EcDTDS < } c k?ìì c<3CRSR l ' y: PREPARATI AH 
INoERIRE I DHTI IX1CRSR D>] E 

PREMI UN TASTO QUALSIASI" 

2 GETA$ ; IFA$=""THEN2 

3 N=8 ■' FORI =0TG63 : PRI NT I" - ": I NAUTA ( I ) : NE 

XT 

4 PRINT"C<1CLR>]C <2CRSR D> 1 ":FORX=0T07 :N 
=N+1 :PRINTN"DATA"; 

5 FOR V=0TO7 : A=A(X#8+V):A$=MI Ut <STR$<A ) . 2 

> + • PRINTA$; •'NEXTV : PRINT"C< 1CRSR L>3 " 

• NEX rx 

6 PR I NT " 3 " : PR I NT" RIJN " 


Listato 2. La versione con input da tastiera dello Sprite loader. 


3463* COLL. IS IONI =46346346 


ANALISI TOTALE: 


1000 C0=PEEK<V+30 >:IFC0=0THENRETURN 
1010 FORI-0TO7 

1020 IF C C0ANH2 TI > =2 TI T'HENR ( I > = 1 
1025 NEXT 

1030 IFR<0>~1THEN #AAAAAA# 

1040 IFR<l)slTHEN «BBBBBB* 

1050 IFR<2)=1THEN ACCOCCO* 

1060 . 

1100 RETURN 


ANALISI PARZIALE 


1000 C0-PEEK<V+30):IFC0=0THENRETURN 
1010 IF < C0ANBX ') =XTHEN *AAAAA* 

1020 IF < C0HNDV>=VTHEN *BBBBB* 

1030 IF(C0ANDZ) =ZTHEN JUCCCCC* 

1100 RETURN 


Listato 3. Due esempi di subroutine per verificare le collisioni. 


Sprite 
per C 64 

la prima collisione e sino all’azzera¬ 
mento, qualsiasi interrogazione ri¬ 
schia di essere fuorviarne; per alle¬ 
viare il peso del continuo richiamo 
di una routine completa di analisi 
delle collisioni è consigliabile, dopo 
aver conservato in una variabile il 
contenuto del registro, passare ai 
particolari solo se necessario (# 30 o 
#310 0), come mostrato nel lista¬ 
to 3 che propone due esempi da uti¬ 
lizzare come subroutine. 


Multicolor 

11 C 64 rende possibile la pro¬ 
grammazione di sprite a 4 colori; 
cioè, oltre al colore di fondo ed al 
colore assegnato allo sprite, è possi¬ 
bile utilizzare altri due colori (multi¬ 
color # 1 e # 2). 

Questa valorizzazione cromatica 
sacrifica però la risoluzione, in 
quanto, per codificare 4 diversi co¬ 
lori, sono impiegati due dei bit della 
matrice binaria anziché uno (colo¬ 
re/non colore); le combinazioni 
possibili saranno quindi: 

00 - colore di fondo (registro# 33) 

01 - multicolor# 1 (registro# 37) 

10 - colore animazione (registro# 39 -# 46) 

11 - multicolor# 2 (registro# 38). 

I 24 punti che compongono le sezio¬ 
ni orizzontali dello sprite saranno 
forzati a diventare 12 coppie, che po¬ 
tranno assumere uno dei colori pre¬ 
scelti. 

Per attivare il modo Multicolor 
bisognerà “accendere” il bit corri¬ 
spondente allo sprite, con le tecni¬ 
che ormai note, all’interno del regi¬ 
stro # 28. La selezione dei colori si 
effettua ponendo nei registri interes¬ 
sati (# 33/# 37/# 38/# 39-# 46) 
il valore ricavato dalla tabella 2. 

Per costruire sprite multicolori 
con il programma Sprite drawer, 
proposto nella prima parte, basterà 
aggiungere alla riga 30 le istruzioni: 
POKEV + 28,4: POKEV + 37, (co¬ 
lore 1): POKEV + 38, (colore 2). 


Conclusione 

In questo articolo ho proposto 
strumenti ed informazioni per crea¬ 
re una base alla programmazione 
grafica del C 64. Mancano, per com¬ 
pletare il quadro, una analisi detta¬ 
gliata dei caratteri programmabili, 
del modo Bit map e dello scrolling 
rallentato. Altro “grande assente” è 
il linguaggio macchina, che è invece 


indispensabile per l’applicazione di 
quanto esposto ai programmi di 
movimento che coinvolgono l’alta 
risoluzione con più sprite e spesso 
con effetti sonori. Mi riprometto di 
realizzare qualche applicazione con¬ 
creta, registrando la cronaca ragio¬ 
nata del suo sviluppo, dall 'idea alla 
“traduzione” in linguaggio macchi¬ 
na per un ulteriore approfondimen¬ 
to di questo tema. ■ 
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Spacman 
per ZX Spectrum 


Un simpatico 
videogame per tutti 
gli utenti Sinclair 

di Ivano Parbuono 

I l programma descritto qui 
di seguito è un classico dei 
videogiochi. Si tratta di un 
labirinto con il famoso Spacman che 
deve mangiare il più possibile, cer¬ 
cando di sfuggire ai tre mostri disse¬ 
minati nel labirinto stesso. Il movi¬ 
mento non è molto Veloce a causa 
della programmazione in BASIC. 
Ogni simbolo grafico corrisponde 
ad un punteggio diverso, non esiste 
limitazione di tempo per poter man¬ 
giare tutto, ma ciò non toglie che sia 
difficile poter arrivare ai 3715 punti 
che occorrono per poter cambiare 
schermo vincendo la partita e sfug¬ 
gendo ai mostri. Il programma è sta¬ 
to predisposto anche per poter esse¬ 
re giocato con il joystick Kempston. 


Analisi del programma 

Le linee che vanno dalla N. 7 alla 
N. 8 si occupano della presentazione 
del gioco con una piccola pausa. Il 
gioco inizia con la linea 9 che chia¬ 
ma la subroutine alla linea 1500 per 
la creazione dei caratteri grafici e 
memorizza i vari dati con una serie 
di LET. La linea 20 contiene i co¬ 
mandi per la rappresentazione grafi¬ 
ca del labirinto che proseguono fino 
alla linea 115. La linea 210 controlla 
continuamente il punteggio e se que- 

Listato 1. // programma Spacman. 



Figura I. Rappresentazione grafica de! gioco sullo schermo. 


sto risulta superiore a 3715 rimanda 
alla linea 3000 dove viene comunica¬ 
ta la vincita della partita. 

Le linee che vanno dalla 220 alla 
245 fanno si che una volta inserito il 
joystick il movimento di Spacman 
risponde a quest’ultimo, mentre 
quelle che vanno dalla 250 alla 265 
permettono il movimento per mezzo 
dei tasti 5 6 7 8, si noti che Spacman 
può uscire e rientrare nel labirinto 
attraverso le porte disposte ai quat¬ 
tro lati. Il nostro Spacman ha una 
bocca per mangiare e, una volta 
orientata nella direzione di marcia, 
le linee 270 - 295 fanno si che prose¬ 
gua in avanti da solo continuando a 
mangiare tutto ciò che trova. I vari 
simboli rappresentati nel labirinto 
per mezzo delle linee che vanno dal¬ 
la 350 alla 370 e che una volta in¬ 
ghiottiti dal nostro Spacman a se¬ 
condo del simbolo, incrementano di 



Figura 2. Lista dei simboli grafici. 


10-50-100 o addirittura 500 il pun¬ 
teggio stampandolo nella parte alta 
del video, ma attenzione, anzi molta 
attenzione, Spacman non è solo nel 
labirinto ci sono anche tre mostri 
che vogliono prenderlo e sono rap¬ 
presentati per mezzo delle linee che 
vanno dalla 375 alla 620 muovendo¬ 
si in funzione RND, se uno di questi 
mostri mangia Spacman il gioco ter¬ 
mina ed appare la scritta “Hai per- 


7 PLm3H 3 IWK 2: PPJNT RT 2 , 
Pi ; . INK 1 

: PRINT BT 3,7;" S P fi C M fi N 
INK 3 : PRINT " 

«■nanam" : PRINT RT 18.0;" SI 
PUÒ C-ICC.ORE RNCHE CON 


JOYSTICK 
RINT " mmm 


KEMPSTON": INK 3. 


8 INK 1 : PR JNT HT 8,3; 

II9EIII1IIIBI31IIII " INK 

NT RT 9,3;" IDEATO 


UHM: 

E RERt-IZZlRTO 
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Seguito listato Spacman. 

DR PARBUONO IUANO 

Uia A. di CAMBIO 4- 
BV UERONA ": 

INK 1: PRINT " 111111111111111 

ffllillllll ‘ PAUSE 150 

9 GO SUB 1500: LET 3=0: LET b 
=7. LET C=S: LET d=18: LET e =4-: 
LET f =15 : LET 9=14.. LET h=lB. LE 
T i=3: LET S*="#": LET P*="§": B 
ORDER 3: PAPER 3: INK 2: CLS : P 
RPER 7 

10 FOR 1=1 TO 20 STEP 2: BEEP 
,1,1: NEXT l: FOR l=20 TO 1 STEP 
-2 : BEEP .1,1: NEXT l 

1S DIM T*(20,27) _ 

20 LET T* (1) *' 



■ ■ 


150 PRINT : FOR 1=1 TO 20: INK 
3: PRINT "B“ ;T$(l) ; NEXT t 

Sii! ÌF T «T =3715^ THEN CLS : LET a 

I B ; S8ge5 R B?^S n ?g R 3gé,« INK 

230 IF INKEY*-"" THEN GO TO 270 
230 IF IN 31=2 THEN LET P* = ' 

235 IF IN 31=4. THEN LET P* = ' 

240 IF IN 31=8 THEN LET P*-"*" 

24.5 IF IN 31=1 THEN LET P*="#" 

^25© IF INKEY*="5" THEN LET P* = ” 

^255 IF INKEY*="6” THEN LET P* = " 

260 IF INKEY* = " 7" THEN LET P* = " 

*265 IF INKEY*="8" THEN LET P* = " 

270 PRINT AT h,i;" " 

280 IF P* = "*" AND T*(h-1, i ) < >"■ 
" THEN LET h=h-l 
285 IF P* = "f 
" THEN LET 
ET i =2 

290 IF P*«"*" RND T*(h+1,i> <>"■ 
'• THEN LET h=h+l: IF h > 19 THEN L 
ET h =2 

295 IF P*="©" AND T* (h . i-1) < >"■ 
" THEN LET i=i-l: IF i<2 THEN LE 
T i =26 

300 IF h<2 THEN LET h=20 
310 PRINT AT H,I; INK 0; s * 

350 IF T* (h,i) ="." THEN LET a= 3 
+ 18. PRINT AT 0,0; "PUNTI ";a. BE 
EP .004-, 54. 

360 IF T* (h , i ) = "*" THEN LET a =« 
+50: PRINT AT 0,8:"PUNTI “;a. BE 
EP .2,5 

3S5 IF T*(h,i)=“é" THEN LET a=a 
+ 100: PRINT AT 0,0; "PUNTI " ; a : B 
EEP .04-, 35: BEEP .3,5 
370 IF T*(h,i)="f" THEN LET a=a 
+500: PRINT AT 0,0;"PUNTI ";a: B 
EEP .5,7: BEEP .1,9: BEEP .4,9 
375 PRINT AT b,9 ;T* ( b,9) : IF IN 
T IRND*S) + (B .V.W) T * f b-1 , 9 ) r > ' 

■" THEN LET b=b-l 


=>* = ”€" AND T* (h ; i+1) < >"■ 
ET i»i+l: IF ì >26 THEN L 


530 IF IN' 

( c +1, e ) < > 
54.0 IF IN'. 

(c,e-1)<>“■ 
550 IF INT 
(C,e +1) < >” 


1 

Ir 


590 IF INT (F 
td+1, f > < >"■“ 1 
600 IF INT (F 
(d , f-1) < >1 
810 IF INT (F 


Seguito listato Spacman. 

330 IF INT (RND*2)+(B<H) ANO T4 
Cb + i , 9 ) < > THEN LET b = b + l 

385 IF INT (RND*2)+(©>I) AND Tt 
I b , g-1) < > "il" THEN LET g=9-l 
390 IF INT (RND*2) + (G<I) AND T* 
fb,9+1)<>THEN LET 9=9+1 
395 PRINT AT b,g; INK 1; 

500 PRINT AT H,I; INK 0;Pt 
510 IF (b=h AND g=i) OR Cc=h AM 
D 8=i) OR (d =h AND f=i) THEN PRI 
NT AT h , ì : FOR l=-20 TO -4-0 STEP 
-1.9: BEEP .1,1: NEXT t: POR a = 
1 TO 50: BORDER RND*7. NEXT a. C 
LS . FLASH 1: PRINT AT 10,6;"H A 
I PERSO!!": PAUSE 0: FLAS 
H 0: IF INKEY*<>" " THEN RUN 

520 PRINT AT c,e;T*(C,e). IF IN 
T (RND*2) + (C>H) AND T* ( C-1,e) <>” 
*" THEN LET C=C-1 

(RND*2)+(C<H) AND T* 
THEN LET C=C+1 
(RND*2) + (E>I) AND T* 
THEN LET e=e-l 
(RND*2) + (E<I) AND T* 
THEN LET e=e+l 
560 PRINT AT C,e; INK 1;"©" 

580 PRINT AT d,f;T*(d,f): IF IN 
T (RND*2)+(D>H) AND T*(d-1, f ) <>" 
■" THEN LET d=d-l 
590 IF INT (RND*2)+(D<H) AND T* 
~ THEN LET d=d+l 

(RND*2) + (F > I) AND T* 
THEN LET f=f- 1 
(RND*2) + (F < I) AND T* 
td , f+l> <>"■*' THEN LET f = f +1 
620 PRINT AT d,f; INK 2;"ffl" 

650 GO TO 200 
1000 GO TO 9 

1500 DATA 0,BIN 01000010,BIN 111 
00111.BIN 11111111 ,BIN limili, 
BIN 11111111,BIN 01111110,BIN 00 
111100 

1810 DATA BIN 00111100,BIN 01111 
110.BIN 11111100,BIN 11111000,BI 
N lÌlll000,BIN 11111100,BIN 0111 
1110,BIN 00111100 

1520 DATA BIN 00111100,BIN 01111 
110,BIN 00111111,BIN 00011111,BI 
N 00011111,BIN 00111111,BIN 0111 
1110,BIN 00111100 

1530 DATA BIN 00111100,BIN 01111 

il©, bin mimi, bin limili, bi 

N mimi,BIN 11100111,BIN 0100 
0010,0 

154-0 DATA BIN 01111100,BIN 11111 
110,BIN 10010010,BIN 10010010,BI 
N 11111110,BIN 11111110,BIN 1111 
1110,BIN 10101010 

1550 DATA BIN 01010010,BIN 00110 
100,BIN 00011000,BIN 01111100,BI 

n limilo, bin mima, bin mi 

1110,BIN 01111100 

1580 DATA BIN 00810800,BIN 88010 
000,BIN 00111080,BIN 01111100,BI 
N 11111110,BIN 11111110,BIN 8111 
1100,BIN 00111000 

1570 DATA BIN 00001100,BIN 00010 
000,BIN 01111100,BIN 10110110,BI 
N 01111100,BIN 00101000,BIN 0001 
1000,BIN 00010000 

1580 DATA BIN 00im00.BIN Olili 
HO,BIN limili,BIN limili,BI 
n limili, bin mimi, bin 0111 

1110,BIN 00111100 

1590 DATA 24-, 60,126,219,219,255, 
219,14-5 
1900 
2800 
USR 
2010 
USR 
2020 
USR 
2030 
USR 
204.0 
USR 
2050 
USR 
2060 
USR 
2070 
USR 


3000 BEEP 2,1: BEEP 1,2: BEEP .8 
,4.: BEEP .6,2: CLS : BORDER 2: P 
«PER 6: FLASH 1: INK 1: PRINT AT 
IO, 4-; "SARDISSIMO SEI SFUGGITO" 
: PRINT AT 11,12;"AL MOSTRO": PA 
USE 150: BEEP - 4. , 4. : BEEP ,2,35: 
BEEP .2,8: BEEP 2,3: BEEP 1.5: F 
LASH 0: GO TO 1 


RESTORE 
FOR f =0 

1500 

TO 7: READ 

a : 

POKE 

?OR f 

, a : 

f =0 

NEXT 
TO 7: 

f 

READ 

a : 

POKE 

“fa*' 

, a : 

f =0 

NEXT 
TO 7; 

f 

READ 

a : 

POKE 

"»"+ f 
FOR 

, a : 

f =0 

NEXT 
TO 7: 

f 

READ 

a : 

POKE 

"*" + f 
FOR 

, a : 

f =0 

NEXT f 

TO 7 : READ 

a ; 

POKE 

"«" + f 

FOR 

, a : 

f =0 

NEXT 
TO 7: 

f 

READ 

a : 

POKE 

"*" + f 
FOR 

, a : 
f =0 

NEXT 
TO 7: 

f 

READ 

a : 

POKE 

"*" + f 
FOR 

, a : 
f =0 

NEXT 
TO 7: 

f 

READ 

a : 

POKE 

"f " + f 
FOR 

, a : 
f =0 

NEXT f 

TO 7: READ 

a : 

POKE 

return' 

NEXT 

f 
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Personalizzate 
e potenziate 
il vostro BASIC 


di Roberto Brunialti 


Che cosa è una macro 

L a macro rappresenta nel- 
l’ambito della program¬ 
mazione ciò che gli ele¬ 
menti prefabbricati sono nel campo 
della edilizia. 

Una macro è, infatti, una istruzione 
simbolica con un nome ed eventuali 
argomenti, che viene rimpiazzata da 
una serie di istruzioni di più basso 
valore simbolico. A ben vedere, una 
qualsiasi istruzione BASIC è in real¬ 
tà una macro che viene sostituita, in 
maniera non permanente, con le 
corrispondenti istruzioni in linguag¬ 
gio macchina. 

Operando in BASIC può essere di 
grande utilità disporre di un pro¬ 
gramma che permetta una facile de¬ 
finizione di una serie di macro¬ 
istruzioni che vengano poi tradotte 
in linee BASIC correntemente ese¬ 
guibili; si tratta in pratica di un pre¬ 
interprete. 

Ma vediamo che cosa significa tutto 
ciò che abbiamo detto, con un esem¬ 
pio abbastanza significativo. 
Nell’uso del calcolatore per applica¬ 
zioni matematiche, capita frequen¬ 
temente di dover leggere da dischet¬ 
to matrici numeriche. Ammettendo 
che la matrice sia memorizzata in un 
file sequenziale, con i primi due re¬ 
cord che definiscono, rispettiva¬ 
mente, il numero di righe e di colon¬ 
ne e con i dati che seguono ordinati 
per colonne, un programma di lettu¬ 
re sarà del tipo: 


10 D$ = CHR$ (4) 

20 N$ = “nome file” 

30 PRINT D$; “OPEN”; N$ 

40 PRINT D$; “READ”; N$ 

50 INPUT NR:INPUT NC 
60 DIM A(NR,NC) 

70 FOR I = 1 TO NC 
80 FOR J = 1 TO NR 
90 INPUT A(J,I) 

100 NEXT J,I 

110 PRINT D$; “CLOSE”; N$ 

Come si vede ben undici righe, irte 
di virgole e virgolette, con errori di 
battitura sempre in agguato. Che di¬ 
re poi se le matrici da leggere sono 
numerose? 

Il nostro programma permette, per 
l’appunto, di definire una macro di 
nome LEGGI con i seguenti para¬ 
metri: 

1 — nome della matrice in cui inseri¬ 
re i dati letti; 

2 — nome variabile del numero delle 
righe; 

3 — nome variabile del numero delle 
colonne; 

4 — nome del file dati. 

Essendo il precedente un esempio, 
niente vieta di definire diversamente 
e con altro nome una macro che 
svolga le stesse funzioni. 

Nel nostro caso le nove righe dalla 
30 alla 110 possono essere sostituite 
dalla comoda macro: 

30 LEGGI A,NR,NC,N$ 

Bello, non è vero? 


Memorizzazione dei programmi 
in un text-file 

Nell’Apple II non è possibile me¬ 
morizzare direttamente un pro¬ 
gramma sotto forma di testo, suc¬ 
cessivamente manipolabile. Poiché 
il nostro programma MACRO, co¬ 
me forse si è già intuito, è essenzial¬ 
mente un abile manipolatore di 


stringhe, il primo problema è quello 
di scrivere su disco e poi rileggere 
correttamente il programma conte¬ 
nente delle macro, sotto forma di 
testo. 

A pagina 76 del manuale DOS 3.3 è 
indicato un metodo di scrittura su 
disco. Ricordo che si tratta di aprire 
un file sequenziale e scrivere tutto il 
programma con un comando LIST. 

Il problema da risolvere, adottan¬ 
do questo metodo, è quello dell’in¬ 
serzione di un CR ogni trentatre ca¬ 
ratteri. 

Poiché CR è anche il carattere di fine 
record, viene resa indistinguibile la 
linea completa dai frammenti da 
questa derivati. 

Quando si tenta di leggere una linea 
di un programma cosi archiviato, 
spesso risulta spezzata in più record, 
a seconda della sua lunghezza. 

Ma non è tutto. Se nella linea di 
programma sono inseriti caratteri 
separatori (virgole, punti e virgola, 
due punti), in fase di lettura verrà 
segnalato un EXTRA IGNORED 
con troncamento di tutto quanto se¬ 
gue. 

Per risolvere questi due problemi 
per la lettura delle linee è stata usata 
la istruzione GET che accetta tutti i 
caratteri ASCII separatori compre¬ 
si, mentre per la ricostruzione delle 
linee originali del programmavi e ne 
effettuato un controllo incrociato. 
Infatti se un record non inizia con 
un numero, sicuramente appartiene 
(essendone un frammento) alla linea 
di programma del record preceden¬ 
te. Poiché può accadere che casual¬ 
mente venga troncata una linea nel 
mezzo di una equazione numerica, 
per evitare che il frammento venga 
considerato come una nuova linea 
(iniziando con un numero) si verifi¬ 
ca che il numero di testa sia superio¬ 
re a quello dell’ultima linea trattata 
e inferiore a quello della successiva. 
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70-260 Menu principale e selezione opzioni. 

270-350 Opzione 3: master program con chiamata subroutine relative. 

360-560 Opzione 3: input del nome programma e vocabolario, lettura programma 

dal disco. 

570-720 Opzione 3: controllo incrociato (vedi testo) per la ricostruzione delle linee 

del programma. 

730-1010 Opzione 3: lettura del file <voc>. CTRL associato ad ogni vocabolario 
del numero macro. Usa la subroutine 2690 per la lettura dei parametri e 
delle definizioni delle macro. Scandaglia tutte le righe in cerca deile 
macro. Se ne trova chiama la sub 1210. 

1020-1200 Opzione 3: scrive sul file MACRO.COMODO il programma elaborato, 
più alcuni comandi per il caricamento e il lisi automatico, eseguiti me¬ 
diante un EXEC. 

1210-1440 Opzione 3: isola i parametri della macro e ricompone la linea con il testo 
di definizione. 

1450-1980 Opzione 1: definizione delle macro ed aggiornamento del file 
<voc>.CTRL e del file <voc>. 

1990-2190 Opzione 2: trasforma un file programma in file text per permettere alla 
opzione 3 di leggerlo. Riaggancia, alla fine, il programma MACRO. 

2200-2680 Opzione 4: legge il vocabolario mediante la sub 2690 e se incontra la 
macro che si vuole cancellare non la ricopia sul file MACRO.COMODO. 
Alla fine aggiorna <voc>.CTRL e, dopo aver cancellato <voc>, median¬ 
te un RENAME lo ricrea dal file MACRO.COMODO, aggiornato. 

2690-2850 Routine utilizzata per leggere le singole macro dal file <voc>. 

2680-2970 Routine di input linea di definizione macro. chiamata dalla opzione I. 

2980-3060 Routine di errore per tentativo lettura file <voc> che risulti vuoto. 


Figura 1. REMarks del listato Macro 

Questo permette di ridurre quasi a 
zero la probabilità che un frammen¬ 
to venga considerato come una linea 
di programma BASIC e nell’uso 
pratico non si sono mai verificati 
errori. 

Il programma 

Il programma che presento è di 
uso assai semplice e piuttosto poten¬ 
te. Si possono definire più macro in 
una linea di programma e si possono 
inserire macro anche all’interno di 
altre. 

Unica limitazione: non si deve supe¬ 
rare la lunghezza di 251 caratteri per 
linea di programma dopo la “tradu¬ 
zione”. 

Questa è una limitazione instrinseca 
al BASIC dell'Apple le cui linee non 
possono superare i 255 caratteri. 

Il programma si compone di un 
menu principale che rimanda a 


Program. 

quattro opzioni, con compiti distinti 
che adesso esaminiamo in dettaglio 
mediante l’esempio riportato all’ini¬ 
zio. 

Opzione 1 

Definizione nuove macro 

E la parte basilare del program¬ 
ma. In questa sede si creano nuove 
macro mediante la definizione dei 
loro parametri e la scrittura del te¬ 
sto. Nel nostro caso vogliamo creare 
la macro LEGGI. 

La prima domanda del programma 
è NOME DEL VOCABOLARIO. 
Poiché possiamo definire macro in¬ 
dirizzate a problemi specifici, con¬ 
viene raggrupparle in vocabolari. 
Questi sono delle raccolte di macro 
con nome collettivo. Nel nostro caso 
creiamo un vocabolario di macro 
‘matematiche’ e quindi con poca 
fantasia risponderemo MAT! 


Dobbiamo ora inserire, su richiesta 
del programma, i quattro parame¬ 
tri: 

MACRO-NAME: nome della macro 
con cui verrà chiamata da program¬ 
ma. Nel nostro caso rispondiamo 
con LEGGI. 

MACRO-ARG: numero degli argo¬ 
menti della macro, che verranno 
specificati nella chiamata. Nell’e¬ 
sempio sono i quattro specificati al¬ 
l’inizio. 

ARG-SEP: è il segno di separazione 
fra gli argomenti. Si possono sce¬ 
gliere uno o più caratteri. Normal¬ 
mente (come nel nostro caso) con¬ 
viene scegliere la virgola o punto e 
virgola. Occorre assicurarsi che in¬ 
ternamente agli argomenti non 
compaia il separatore scelto. 
ARG-PRE: prefisso con il quale, su¬ 
bito dopo, verranno indicati gli ar¬ 
gomenti della definizione vera e pro¬ 
pria. Viene richiesto (anche se si po¬ 
trebbe definire una volta per tutte) 
per rendere più flessibile il program¬ 
ma. Scriviamo ARG. 

A questo punto ci viene chiesto di 
scrivere il testo della macro che, per 
quanto sopra detto, non può supe¬ 
rare i 251 caratteri (4 caratteri servo¬ 
no per l’inserimento di un ‘tappo’ 
dato dalla stringa :REM). 

Il testo sarà: 

PRINT D$; “OPEN”; ARG4: 
PRINT D$; “READ”; ARG4: 
INPUT ARG2: INPUT ARG3: 
DIM ARG 1 (ARG2,ARG3): FOR I 
= 1 TO ARG3: FOR J = 1 TO 
ARG2: INPUT ARCI (J,I):NEXT: 
NEXT: PRINT D$; “CLOSE”; 
ARG4 

Bisogna fare molta attenzione alla 
scrittura del testo. Questo infatti 
viene accettato mediante la funzione 
GET perché questa non rifiuta i ca¬ 
ratteri separatori che porterebbero a 
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un troncamento nel caso della fun¬ 
zione INPUT. Dovendo simulare 
una istruzione che accettasse tutta 
una linea (comprese le virgole ed 
altri segni), lasciando le funzioni del 
cursore, sono dovuto arrivare al 
compromesso di utilizzare il cursore 
solo sulla stessa linea, non potendo¬ 
lo utilizzare per ‘risalire’ linee. Scrit¬ 
to correttamente il testo (rivederlo 
più volte) si prema due volte il tasto 
di Return. 

Ora su dischetto è presente un vo¬ 
cabolario di nome MAT contenente 
la sola macro LEGGI. 

Dopo aver scritto un programma di 
prova del tipo: 


100 INPUT “NOME FILE:’’; N$ 
1000 LEGGI A,R,C,N$ 


e averlo salvato su dischetto sotto il 
nome di PROVA, lo si trasforma in 
un file di testo mediante la seconda 
opzione. 


Opzione 2 

Scrivi testo programma 

E di uso semplicissimo. Basta ri¬ 
spondere alla domanda NOME 
PROGRAMMA: con PROVA, 
aspettare qualche secondo e passare 
alla ultima opzione. 


Opzione 3 

Traduci programmi macro 

Viene richiesto il nome del pro¬ 
gramma da tradurre (scriviamo 
PROVA) e il nome del vocabolario 
(MAT). Dopo aver premuto Re¬ 
turn, se non sono stati fatti errori 
nella scrittura del programma, avre¬ 
mo, dopo breve attesa che ovvia¬ 
mente dipende dalla lunghezza del 
programma, in memoria centrale il 
programma pre-i.iterpretato, pron¬ 
to per l’uso. 

68 


Nome 

PRO 

N. argomenti 

6 

Sintassi 

PRO al. a2, a3, a4, a5, a6 
al = l a matrice 
a2 = 2 a matrice 
a3 = matrice risultalo 
a4 = numero righe al 
a5 = numero colonne al 
a6 = numero colonne a2 

Definizione 

FOR I = 1 TO a4:FOR J = 1 TO a6:FOR K = 1 TO a5: a3(I,J) = a3(I,J) 

+ al(I,K)*a2(K,J):NEXT: NEXT: NEXT 

Esempio 

PRO A, B, C, RI, CI, C2 

Nota 

Questa macro calcola la matrice prodotto nel modo consueto C = A ★ B 

Nome 

DET 

N. argomenti 

3 

Sintassi 

DET al, a2, a3, 

al = nome della matrice 

a2 = numero delle righe o delle colonne 

a3 = variabile in cui si troverà il risultato 

Definizione 

a3 = 0;FOR I = 1 TO a2:IF a 1(1.1)< >0THEN NEXT: a3 = 1: FORI = 

1 a2: FOR J = I + 1 TOa2: FOR K = I + 1 TOa2: al (J,K) = al (J.K)-al 
(I,K) ★ al (J.I) /al (1,1): NEXT: NEXT: a3 = a3 ★ al (1,1): NEXT 

Esempio 

DET A.3.DT 

Nota 

La matrice al viene alterata nel calcolo. Il determinante risulta zero se 
nella diagonale è presente uno zero. Per esigenze dell’algoritmo le dimen¬ 
sioni di al devono essere aumentate di una unità. 

Nome 

AREA 

N. argomenti 

5 

Sintassi 

AREA al, a2, a3. a4, a5 

al = funzione di cui si vuole l’integrale 

a2 = estremo inferiore di integrazione 

a3 — estremo superiore di integrazione 

a4 = numero di iterazioni 

a5 = variabile in cui si troverà il risultato 

Definizione 

FOR I = ((a3 - a2)/a4)/2 TO a3 STEP(a3 - a2)/a4: a5 = a5 + a LNEXT: 
a5 = a5 ★ (a3 - a2)/a4 

Esempio 

AREA (3.5 ★ EXP(I)), 2, 5, 100, AC 

Nota 

Questa macro calcola l’integrale della espressione in al. L’espressione 
deve essere funzione della variabile I. 


Tavola 1. Ecco tre macro già definite e pronte da utilizzare. 


Opzione 4 
Cancella macro 

E una opzione da usare con parsi¬ 
monia, perché tende a manomettere 
il vocabolario oggetto della cancel¬ 
lazione. Anche questa volta l’uso è 
semplicissimo. Basta rispondere alle 
domande poste con il nome della 
macro e con quello del vocabolario 
in cui essa risiede. 


siderato (LEGGI), sono presentate 
nella tavola 1 altre 3 utili macro, 
pronte per l’uso (ovviamente dopo 
averle create in un apposito vocabo¬ 
lario). 

Lo specchietto riportato è sufficien¬ 
temente chiaro da non necessitare 
ulteriori commenti. 

Ultime considerazioni 


Ulteriori esempi 

Oltre all’esempio sino ad ora con¬ 


II programma MACRO genera, 
oltre ai vocabolari definiti dall’uten¬ 
te, anche un file <voc>. CTRL as¬ 
sociato a ciascuno di essi, che ripor- 
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Macro istruzioni 
_per Apple II 


ta il numero di macro presenti. Esso 
viene automaticamente aggiornato 
dopo ogni attività di definizione o di 
cancellazione. 

Un altro file di sistema è 
MACRO.COMODO che, come in¬ 
dica il nome, è di uso generico. 
Non interferire mai con questi files, 
se non si vuole incorrere in pericolo¬ 
si crash del sistema. 


Il programma è un pochino com¬ 
plesso, evito perciò una descrizione 
dettagliata. 

Per i più curiosi dovrebbero bastare 
la fig. 1 e il listato del programma. 
Nei listati 2 e 3 viene presentato un 
programma per dimostrare pratica- 
mente il modo di utilizzo della ma¬ 
cro. 

Altra cosa utile, e che suggerisco cal¬ 


damente, è quella di appuntarsi la 
definizione e la sintassi di tutte le 
macro, risultando tale operazione 
praticamente indispensabile in caso 
di molte macro in più vocabolari. 

A voi l’uso, semplice nonostante 
la prima impressione, e la soddisfa¬ 
zione di avere un BASIC personaliz¬ 
zato. E scusate se è poco. 


Listato 1. Il programma per la creazione delle macro. 


********* *** ********** 


MAGRO 

REL 


BY R.BRUNIALTI 
DIM 12/04/83 


8 

9 

10 
20 


30 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

MD = 40:HL = .05 
DEF FN MIA) = 
INT (A / MD)) 
UN 


PROGRAM 
1.2 


********************* » 


UN = 1 

INT («A / MD 
* MD + HL) 


40 t 

1! 

n 

—r. 

■Mt 


50 

DIM PAT(30> 


60 

DIM MA(30) 


70 

REM *** ****** * * ** 


80 

REM MA IN MENU 


90 

REM ** ****************** 

100 

REM 


1 10 

HOME : VTAB 2 


120 

PRIMI LT: PRINT 

"*** MACRO P 


ROGRAM *** MACRO PROGRAM *** 


FRINÌ LT 


130 

VTAB 8 


1.40 

PRINT " 

MENU PR: INCI 


PALE" 


150 

VTAB 10 


160 

PRINT " 1- 

DEFINIZIONE 


NUOVE MACRO" 


1 70 

PRINT " 2- 

SCRIVI TESTO 


PROGRAMMA" 


180 

PRINT " 3- 

TRADUCI PROG 


RAMMAMACRO" 


190 

PRINT " 4 

CANCELLA MAC 


RO" 


200 

PRINT " 5- 

EXIT" 

210 

PRINT : PRINT : 

INPUT " BEL.EZ 


IONA IL NUMERO : 

" ; NNT- 

220 

NN = VAL ( NN'T ) 


230 

IF NN < 1 OR NN 

> 5 THEN GDI 


70 


240 

IF NN = 5 THEN 

END 

250 

ON NN GOSUB 1450 

,1990,270,22 


00 


260 

RUN 


270 

REM ******************* 

280 

REM QPTI0N3 MAS 

TER 

290 

REM ******************* 


300 REM 
310 GOSUB 360 
320 GOSUB 570 
330 GOSUB 730 
340 GOSUB 1020 
350 END 

360 REM ******************* 

370 REM INQUIERY 

380 REM ******************* 

390 REM 

400 HOME 

410 DIM LNT(600) 

420 DT = CHRT (4) 

430 PRINT LT: PRIMI "OPZIONE 3 * 
************** ************** 
PRIMI LT 
440 UTAB 10 

450 INPUT "NDME PROGRAMMA MACRO 
: " : NT 

460 INPUT "NOME DEL VOCABOLARIO 
:";VOT 

470 Ni* = NT + ".COMODO" 

480 PRINT DT; "OPEN " ; NT 
490 PRINT DT-; "READ " ; NT 
500 DNERR GOTO 540 
510 PT = PT + 1 

520 GEI AT: IF AT < > CHRT (13 

) THEN LNT(PT) = LNT(PT) + A 
T: GOTO 520 
530 GOTO 510 
540 PRINT DT; "CL.OSE" 

550 POKE 216,0 
560 GOTO 320 

570 REM ******************** 

580 REM LINE CONTROL 

590 REM ******************** 

600 REM 

610 X = ERE (0) 

620 LNTtPT + 1) = "99999" 

630 ANTE = VAL (LNT(1>) 

640 FOR I = 1 TO PT 
650 CURR = VAL (LNT(I)) 

660 DOPO = VAL ( LNT < I + D) 

670 IF CURR = 0 AND (CURR > DOPO 
OR CURR < ANTE) THEN LNT ( I) 
= LNT(I - 1) + LNT(I):LNT ( I 
- 1) = "":CURR = ANTE 
680 ANTE = CURR 
690 NEXT 

700 NL = PT : PT = 0:FL = 0 
710 FL = 0 


70 
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Seguito programma creazione macro. 



Seguito programma creazione macro. 

720 RETURN 



1340 IF MI* = SEP* OR MI* = THEN 

730 REM ******************* 



AR* <M) = MID* <L*,PI,N PI 

740 REM SEARCH 



) : P1 == N + 1 : GOTO 1360 

750 REM ******************* 



1350 NEXT N 

760 REM 



1360 IF MI* = THEN PI = PI - 

770 PRINT DT; "DF'EN" ; VOT; " . CTRL" 



1 

780 PRINT DT;"READ";VOT;CTRL" 



1370 NEXT M 

790 ONERR GOTO 2980 



1380 IF AR* <NA> = THEN AR*(NA 

800 INPUT NV 



> = MID* (LT,PI): PI = L2 + 

810 IF NV = 0 THEN GOTO 2980 



1 

820 PRINT DT:"CLQSE" 



1390 FOR M = 1 TO NN 

830 PRINT DT;"OPEN " ; VOT 



1400 TP* = TP* + PAR*(M) + AR*(NA 

840 PRINT DT; "READ " ; VOT 



(M) > 

850 FOR I = 1 TO NV 



1410 NEXT M 

860 GOSUB 2690 



1420 TP* = TP* + PAR*(NN + 1) 

870 FOR K = 1 TO NL 



1430 X = FRE (0) 

880 IF LNT <K) = "" THEN 980 



1440 RETURN 

890 L2 = LEN <LNT(K>> 



1450 REM ****************** 

900 L.l = LEN (NT) 



1460 REM DPT IONI 

910 LT = LNT(K) + " 



1470 REM ****************** 

920 TPT- = "" 



1480 REM 

930 FOR L = 1 TO L2 - LI 



1490 HOME 

940 MI* = MIDT (LT,L,Li; 



1500 PRINT LT-ì PRINT "OPZIONE 1 

950 IF MI* = N* THEN FL = 1 : GOSUB 



**************************** 

1240 



*": PRINT LT 

960 NEXT L 



1510 PRINT : PRINT LT 

970 IF FL THEN LN* (K) = TP* + MID* 



1520 INPUT "NOME VOCABOLARIO 

< L*,P1):FL = 0 



VOT 

980 NEXT K 



1530 PRINT LT 

990 NEXT I 



1540 PRINT "MACRO-NAME : " 

1000 PRINT s PRINT DT;"CLOSE" 



; : INPUT ""; NT 

1010 RETURN 



1550 PRINT "MACRO-ARG. : " 

1020 REM ****************** 



INPUT 11 " ; NA 

1030 REM STORE PROGRAM 



1560 SPT = "" 

1040 REM ****************** 



1570 PRINT " ARG-SEPAR. : " 

1050 REM 




1060 NI* = "MAGRO.COMODO" 



1580 SET AT: PRINT AT ;: IF AT < 

1070 PRINT D*;"OPEN ";N1* 



> CHRT (13) THEN SP* = SPT 

1080 PRINT D*; "DELETE"; MI* 



+ AT: GOTO 1580 

1090 PRINT D* ;"OPEN ";N1 * 



1590 PRINT " ARG-PREFIX : " 

1 100 PR I NT DT ;" WRITE "; N1 * 



INPUT ""; PRET 

1110 PRINT "NEW" 



1600 PRINT LT 

1120 FOR I = 1 TO NL 



1610 PRINT " ENTER MACRO TEXT. N 

1130 IF LN*(I) < > "" THEN PRINT 



OT LDNGER THAN 255" 

LN* < I > 



1620 PRINT LT 

1140 NEXT 



1630 VTAB 15: HTAB 1 

1150 PRINT "HOME" 



1640 TXT = "" 

1160 PRINT “LIST" 



1650 GOSUB 2860 

1170 PRINT "DELETE ";N1* 



1660 VTAB 23: HTAB 1: INPUT "OK? 

1180 PRINT "SAVE " ;N1* 



" ; AT : IF AT == "N" THEN TXT = 

1190 PRINT D* ; "EXEC "; NI * 



. GOTO 1630 

1200 END 



1670 TXT = TXT + ": REM" 

1210 REM ****************** 



1680 LI = LEN (TXT) 

1220 REM INSERT 



1690 L2 = LEN (PRET) 

1230 REM ****************** 



1700 F'1 = 1 

1240 REM 



1710 FOR I = 1 TO LI - (L2 + 1) 

1250 LC = VAL (LN* (IO ) 



1720 MIT- = MIDT (TXT,I,L2> 

1260 LP = VAL (LN*(K - 1)) 



1730 IF MIT = PRET THEN PT = PT + 

1270 LS = VAL <LN*(K + 1)> 



1 : PARTT- ( PT ) = MIDT (TXT,PI, 

1280 TP* = LEFT* (L*,L - 1) 



I - PI):PI = I + L2 + 1 : NN = 

1290 PI = L + LI 



VAL ( MIDT (TXT,I + L2,l)): 

1300 FOR M = 1 TO NA 



PP = F'P + 1:NA(PP) = NN 

1310 AR* < M> = "" 



1740 NEXT I 

1320 FOR N *= PI TO L2 



1750 F'ARTT (PT + 1) = MIDT (TXT,P 

1330 MI* = MID* (L*,N,1) 



1) 
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Seguito programma creazione macro. 



Seguito programma creazione macro. 

1760 FRINT DT;"OPEN " 5 VOT 



CRO 

1770 FRI NT DT; "APPFND “ ; VU-t 



2190 RETURN 

1780 FRINÌ DI; "WR1 TE "; VOI 



2200 REM * ********** * * *+* * * 

1790 PRINT NI : PRIMI P I': PRINT M 



2210 REM 0PTI0N4 

A: PRINT SPI 



2220 REM ********■*■*■******** 

1800 POR I •= 1 TO PT 



2230 REM 

18.1.0 PRIMI F'A MI) 



2240 HOME 

1820 PRINT NA(I) 



2250 CMT = "MACRO.COMODO" 

1830 NEXT I 



2260 PRINT LT : PRINT "OPZIONE 4 




* X- * X X X -X -X- * X- -x- -x- X- * * -X- -X- X' -X- * * * -X- -X- X x- -x- 

1840 PRINT PARITI PI <- 1) 




1850 F'R I NT DT ; " OPEN " ; VOI ; " . CTRL 



PRINT LT 

II 



2270 VTAB 10 

1860 F'R I NT DI ; " READ " ; VOT ; " . CTRL 



2280 INPUT "NOME MACRO DA CANCEL 




LARE :"; N1T 

1870 ONERR GOTO 1950 



2290 INPUT "NOME VOCABOLARIO 

1880 INPUT CO 



:"; VOT 

1890 F'R I NT DT ; " OPEN " ; VOI : " . CTR 



2300 PRINT 

L" 



2310 INPUT "SICURO ?" ; AT 

1700 PRINT DT;"WRITE ": VOT;".CTR 



2320 IF LEF'TT (AT, I > = "Y" OR LEFTT 

L" 



(AT,1 ) = "S" THEN GOTO 2340 

1910 PRINT CC h 1 




1920 F'OKE 216,0 



2330 RETURN 

1930 PRINT DT;"CLOSE" 



2340 PRINT DT;"OPEN";VOT;".CTRL" 

1940 RUN 




1950 PRINT DT;"WRITE " ;VOT; " .CTR 



2350 PRINT DT;"READ";VOT;".CTRL" 

L" 



2360 ONERR GOTO 2980 

1960 F'R I NT 1 



2370 INPUT NV 

1970 F'OKE 216,0 



2380 IF NV = 0 THEN GOTO 2980 

1980 GOTO 1930 



2390 PRINT DT;"CLOSE" 

1990 REM •*■** ******** ■*■**•* *■■** 



2400 F'R I NT DT ; " OF'EN " ; VOT- 

2000 REM OPTION2 



2410 PRINT DT;"READ ": VOT 

2010 REM ****************** 



2420 PRINT DT; "OF'EN " ; CMT 

2020 HOME 



2430 PRINT DI; "DELETE " ; CMT 

2030 PRINT LT-: PRINT "OPZIONE 2 



2440 F'R INT DT; "OPEN " ; CMT 

**-*•-#- X****** **-*■*■-X--X--X--X"# a-**-*-**#-* 



2450 FOR I ~ 1 TO NV 

* " : F'R I NT LT 



2460 F'R INT DT; "READ " ; VOT 

2040 VTAB 12 



2470 GOSUB 2690 

2050 PRINT DT-;"OPEN MACRO.COMODO 



2480 IF NI* = NT THEN GOTO 2600 

2060 PRINT DT-;“DELETE MACRO.COMO 



2490 PRINT DT;"APPEND "; CMT 

DO" 



2500 PRINT DT;"WRITE "; CMT 

2070 INPUT “NOME PROGRAMMA : ";N 



2510 PRINT NT 

T 



2520 F'R INT NN 

2000 PRINT DT;"OPEN MACRO.COMODO 



2530 PRINT NA 

II 



2540 PRINT SEPT 

2090 PRINT DT:"WRITE MACRO.COMOD 



2550 FOR K = 1 TO NN 

0" 



2560 PRINT PAT(K> 

21.00 READ AI: PRINT A* 



2570 PRINT NA(K) 

2110 READ AT : PRINT AT;NT 



2580 NEXT K 

2120 READ A*:A* = A* + NT + CHRP 



2590 PRINT RAT(NN + 1) 

(34) : PRINT A* 



2600 NEXT I 

2130 RFAD AI : AT = AT + NT + CHRT 



261.0 PRINT DT;"CLOSE " ; VOT 

(34): PRINT AT 



2620 PRINT DT;"DELETE" ; VOT 

2140 READ AT : PRINT AT: READ AI: 



2630 PRINT DT"RENANE MAGRO.COMOD 

PRINT AT: READ A*: PRINT AT 



0, " ; VOT 

; NT 



2640 F'R I NT DT- ; " OPEN " ; VOT ; " . CTRL 

2150 READ AI : PRINT A*: READ A*: 



II 

PRINT A* 



2650 PRINT DT;"WRITE" ; VOT;".CTRL 

2160 PRINT DT:"EXEC MACRO.COMODO 



" 

|l 



2660 PRINT NV - 1 

2170 END 



2670 PRINT DT;"CLOSE" 

2180 DATA NEW, LOAD ,1 F'R 



2680 RETURN 

INT CHRP (4) ; "OPEN ,2F'RINT C 



2690 REM ****************** 

HRT(4) 5 "WRITE , " 3LIST5,6399 



2700 REM LEGGI MACRO DEE 

9",4 END,DELETE, RUN, RUM MA 



2710 REM ****************** 
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Seguito programma creazione macro. 

2720 

REM 

2730 

SEP* = "" 

2740 

INPUT N* 

2750 

INPUT NN 

2760 

INPUT NA 

2770 

6 ET A*: IF A* < > CHR* (1 

3) THEN SEP* = SEP* + A*: GOTO 

2770 

2780 

FOR J = 1 TO NN 

2790 

PA* < J) = 

2800 

GET A*: IF A* < > CHR* (1 

3) THEN PA*(J) = PA*(J) + A* 

: GOTO 2800 

2810 

INPUT NA(J) 

2820 

NEXT J 

2830 

PA*(NN + 1) = "" 

2840 

GET A*: IF A* < > CHR* (1 

3) THEN F'A* < NN + 1) = PA*(NN 
+ 1) + A*: GOTO 2840 

2850 

RETURN 

2860 

REM ****************** 

2870 

REM LINE FEED 

2880 

REM ****************** 

2890 

REM 

2900 

B = 768 ' 

2910 

GET A*: IF A* = CHR* (13) OR 

PT = 250 THEN GOTO 2950 

2920 

IF A* = CHR* (21) THEN PT = 

PT + 1: HTAB FN M(PT): PRINT 

CHR* ( F'EEK (B + PT) ) ; : GOTO 

2910 

2930 

IF A* = CHR* ( 8 ) THEN PT = 

PT - 1: IF PT * >1 THEN HTAB 

FN M(PT): PRINT CHR* < F'EEK 
(B + PT));: GOTO 2910 

2940 

PT * PT + 1 : PONE B + PT, ASC 
(A*): HTAB FN M(PT): PRINT 

CHR* ( F'EEK (B + PT) ) ; : GOTO 

2910 

2950 

: FOR I = B + 1 TO PT + B:TX 
* = TX* + CHR* ( F'EEK (I)): 

NEXT 

2960 

PT = 0:B = 0 

2970 

RETURN 

2980 

REM * * * * * ******* *•* * * * * 

2990 

F'OKE 216,0 

3000 

R E M ****************** 

3010 

REM 

3020 

HOME : VT AB 12 

3030 

PRINT "IL VOCABOLARIO ";VO* 

E' VUOTO" 

3040 

PRINT "PREMI UN TASTO PER C 
QNTINUARE "; 

3050 

GET A#: PRINT 

3060 

RUN 


Listato 2. Un programma che contiene i riferimenti 
alla macro LEGGI, PRO, SHOW, DET, AREA. 


10 DIM A(2,3),B(3,2) 
20 INPUT "MATi : " ; Nlf- 
30 INPUT "MAT2: " ; N2-T- 
40 LEGGI A,RI,C1,N1* 

50 LEGGIB,R2,C2,N2* 

55 DIM C(RI + 1,C2 + 


1 ) 


Seguito Listato 2. 

60 PRDA,B,C,RI,C1,C2 
70 SHQWC,RI,C2 
B0 DETC, R1 ,AC 
90 PRINT "RISULTATO”"; AC 
100 AREAtl / (1 + I ~ 2)>,0,, 
, AC 

105 AC = 0 

110 PRINT "INTEGRALE="; AC 


Listato 3. Lo stesso programma del listato 2, in cui i 
riferimenti alla macro sono stati sostituiti dalle rela¬ 
tive istruzioni BASIC. 


10 

20 

30 

40 


50 


DIM A <2,3>,8(3,2) 

INPUT “MATI :"5 NI* 

INPUT "MAT2:";N2* 

PRINT CHR* (4 ) ; "OPEN " ; N1 * : PRINT 
CHR* (4) ! “ READ " ; N1 * : INPUT 
ND: INPUT Cl: INPUT RI: POR 
I = 1 TO Cl: POR J = 1 TO RI 
: INPUT A ( J , I ) : NEXT : NEXI' 

: REM 

PRINT CHR* (4) ;"OPEN";N2*: PRINT 
CHR* (4) ;"READ":N2*: INPUT 
ND: INPUT C2: INPUT R2: FOR 
I = 1 TO C2: FOR J - 1 TO R2 
: INPUT B(J,I): NEXT : NEXT 
: REM 


jj 

60 


70 


DIM C(RI + 

1,C2 + 1) 



FOR I = 1 

TO R1 ; FOR J 

= 1 

TO 

C2: FOR K 

: = 1 TO Cl:C 

( I , J) 

= 

C ( I , J ) + 

A <I,K) * B(K 

,J) : 

NEXT 

: NEXT : 

NEXT : REM 



FOR I = 1 

TO RI: FOR J 

== 1 

TO 

C2: PRINT 

C ( I , J ) ; " 

; : NEXT 


•: PRINT : NEXT : REM 
80 AC = 0: FOR 1 = 1 TO RI: IF C< 
1,1) < >0 THEN NEXT : AC = 

1: FOR I = 1 TO RI: FOR J * 

I + 1 TO RI: FOR K = I + 1 TO 
R1 : C ( J , K ) = C ( J , K ) - C < I, K ) * 
C(J , I ) / C(I , I): NEXT : NEXT 

: AC = AC * C(I,I): NEXT : REM 

90 PRINT "RISULTATO="; AC 
100 FOR I -• <(.5-0) / 50) / 2 TO 
.5 STEP (.5-0) / 50: AC = A 
C + (1 / <1 + I 2) ) : NEXT 
:AC = AC * (.5-0) / 50: REM 


105 
1 10 


AC = 0 
PRINT 


"INTEGRALE^"; AC 
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SERVIZIO SOFTWARE 



P.S. propone ai propri lettori i dischi o le cassette dei programmi 
pubblicati. I programmi, provati e garantiti, sono di immediato utilizzo. 



P.S. n° 

Programma 

Sistema 

3 

La carta del cielo 
Collisione 

Apple II 

3 

Backgammon 

TRS-80 Mod. 1 

2 

Editor/Assembler 
in BASIC 

CBM 3032 

4 

Interi in precisione 
multipla 

Grafica 3D 

Apple II 

4 

Gioco del calcio 

CBM 3032 

5 

Pretty printer 

Shape table 

Apple II 

7 

Data base modulare 

Apple II 

12-13 

Wei-ch'i 

CMB 3032 

14 

Tool-Kit 

C 64 


Prezzo 

Codice 

Supporto 

30.000 

1 

Disco 

25.000 

2 

Disco 

40.000 

3 

Disco 

40.000 

4 

Disco 

25.000 

5 

Disco 

30.000 

6 

Disco 

25.000 

7 

Disco 

20.000 

8 

Cassetta 

35.000 

9 

Cassetta 


P*r richieder* i programmi In contrassegno, pagando dlrottamonto al postino la cifra Indicata, Inviar* Il «*gu*nt* tagliando 

Spedir* In busta chiusa a Gruppo Editoriale Jackson - Via Roselllni, 12 - 20124 Milano 


Sxg- 


Inviatemi i seguenti nastri e/o dischi con i programmi 
pubblicati su P.S. 


GRUPPO EDITORIALE JACKSON 


Cod. I I I I I II a L. Cognome 

Cod. I I I I I T~1 a L. . Nom* 

Cod. I I I I I I I a L . Indirizzo 

Cod. 1 I I I I □ a L. CAP. 

Città. 


Spese postali (contributo fisso) L. 2.000 

TOTALE L. 


che pagherò al postino alla consegna del pacco. 


Firma 
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VIC ben temperato 


Programma musicale 
con gestione dei dati 
separata 


di Filippo Pozzi 



Figura 1. Rappresentazione dell’area di memoria de! VIC dalla locazione 0 
alla locazione 8191. E evidenziata l'area normalmente destinata al buffer della 
cassetta, dove viene inserito il programma caricatore per la ricostruzione del 
programma principale nell’area delta memoria disponibile. 


L a limitata quantità di me¬ 
moria disponibile nel VIC 
in configurazione base im¬ 
pedisce spesso lo sviluppo di pro¬ 
grammi, come ad esempio quelli 
musicali oppure quelli in cui vengo¬ 
no definiti nuovi caratteri, conte¬ 
nenti una discreta quantità di dati. 

Un utilizzo più razionale della 
memoria disponibile permette di ri¬ 
durre notevolmente la parte riserva¬ 
ta ai dati. 


Il metodo 

Nei programmi musicali le varie 
note sono normalmente affidate ad 
un’appendice di DATA più o meno 
lunga ed il BASIC, per gestire questi 
dati, spreca una notevole quantità di 
memoria. Per esempio nella linea: 
10DATA37, 234, 188 tre soli dati 
occupano ben 16 byte quando, in 
teoria, ne potrebbero occupare solo 
tre. 

Perché dunque non gestire in altro 
modo la memorizzazione dei dati e 
lasciare al BASIC il resto del pro¬ 
gramma? La soluzione è relativa¬ 
mente semplice, si tratta di ricostrui¬ 
re dal difuori il programma in ogget¬ 
to ... ma procediamo con ordine. 

Per prima cosa è necessario ab¬ 
bandonare l’area di memoria in cui 
si opera normalmente, area che va 
dalla locazione 4096 alla 7679 (i ben 
noti “3584 BYTE FREE”) per spo¬ 


starsi nel buffer della cassetta (dalla 
locazione 820 alla 1023), piccola 
parte della memoria che viene usata 
dal computer solo quando il regi¬ 
stratore è in funzione e che quindi è 
molto spesso inutilizzata (vedi figu¬ 
ra 1). 

Per fare ciò si scriva in modo diretto: 
POKE 43,53: POKE 44,3: POKE 
45,55: POKE 46,3: POKE47,55: 
POKE 48,3: POKE 55,255: POKE 
56,3: POKE 820,0 e si prema il RE¬ 
TURN. 

Si scriva quindi NEW e si riprema il 
RETURN. A questo punto si hanno 
a disposizione i 200 byte del buffer 
della cassetta (in verità il buffer è 
limitato a 192 byte) sufficienti per 


contenere il programma CARICA¬ 
TORE (vedi listato 1). Lo si ricopi 
attentamente, facendo particolare 
attenzione al punto e virgola dopo 
PRINTR; :..nella linea I. Dopo aver 
scritto il suddetto programma si dia 
il RUN e, con estrema attenzione e 
pazienza, si inseriscano, su richiesta 
del programma stesso, tutti i dati del 
listato 3. 

In caso di errore nell’introduzio¬ 
ne dei dati si prenda nota della loca¬ 
zione in cui è stato inserito il dato 
errato. Si interrompa il programma 
e lo si listi come si fa normalmente. 
Si inserisca quindi detta locazione al 
posto della prima del ciclo R nella 
linea 1 del programma CARICA- 
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TORE (vedi listato 1) e si prema il 
RETURN; si ridia quindi il RUN, 
riprendendo così l’inserimento dati 
dalla locazione del dato errato. Fac¬ 
ciamo un esempio per quelli che da 
tutto questo discorso hanno capito 
che ... è meglio non sbagliare! Se, 
per esempio, è stato inserito il dato 
25 invece di 215 nella locazione 
5126, si premano RUN/STOP e RE- 
STORE insieme per fermare il pro¬ 
gramma. Dopo averlo LISTato si 
corregga così la linea 1: 1 FORR = 
5126TO6201: ... Dopo il RUN l’in¬ 
serimento dei dati riprenderà dalla 
locazione 5126 in cui si inserirà 215, 
continuando poi normalmente. Lo 
stesso metodo di correzione vale an¬ 
che nel caso in cui venga per errore 
inserito un valore superiore a 255 
ottenendo così un 7ILLEGAL 
QUANTITY ERROR IN 1. 

Dopo aver inserito l’ultimo dato il 
programma chiederà di preparare la 
cassetta per la successiva memoriz¬ 
zazione su nastro del nuovo pro¬ 
gramma. Appena pronti si prema 
FI (tanto per disturbare un po’ i 
ragni che sotto i tasti-funzione han¬ 
no trovato una comoda e tranquilla 
dimora!) e, seguendo il solito 



Figura 2. Particolare dell’area di memoria disponibile dopo aver effettuato il 
caricamento dei dati. Dei 3584 byte inizialmente disponibili. 267 (dal 4096 al 
4362) contengono ora il programma in BASIC, 1839 (dal 4363 al 6201) 
contengono i dati ed i rimanenti 1478 (dal 6202 al 7679) rimangono inutilizza¬ 
ti. Il posizionamento dei puntatori di fine programma alla locazione 6203 
rende la parte dati inscindibile da quella BASIC e il programma può perciò 
essere “salvato" o ‘‘caricato’’ dalla cassetta come un qualsiasi altro program¬ 
ma. 


Pr‘o9r-3.mrn* i c-a. tor*e 


1 FORR-40S6TO6201 : PRINTR; : IMPUTA ; POKER,fì : NEXT : PRINT"PREPARARE Lfì CfìSSETTfi" 

2 PRINT"QUINDI PREMERE FI”:WAITÌ98,1 :P0KE43,1 :P0KE44,16 : P0KE43,39 

3 P0KE46,24 :P0KE47,59 :P0KE48,24 :P0KE33,0 :P0KE56,30 :SRVE 


Listato I. Programma caricatore. 


XX VIC be-ri temperato 

1 PRINT".-]" ■ V=59763 : L-3S874 : M=L+ 1 H«M+1 :P0KEH*2, 13 :104363 : T«150 

2 fl-PEEKOO B«PEEK(K+1) : C-PEEKCK+2) :K=K+3:X=RND<8) : IFA=2THENT-400 

3 POKEL , A POKEM, B : POKEH, C ; IFA-3THENF0RT» 15T0CSTEP-. 01 : POKEH+2, T : NEXT : END 

4 FORR=.TOT :NEXT■P0KE8164+X*22,116 : P0KE38884+X422,X*6+2:SVSV:00T02 


VARIANTI PER L'ESECUZIONE DEL PRELUDIO PRIMO 

1 PRINT".-]" : V=53765 L=363?4:M=L+1 :H=M+1 :P0KEH->-2, 15 :K=4363:T«100 
3 POKEL, 0 :POKEM,A :POKEH,B•IFR=3THENF0RT-15T0CSTEP-.01:POKEH+2,T:NEXT: END 


Listato 2. Programma “VIC ben temperato’’. 


PRESS RECORD & PLAY ON 
TAPE, l’intero programma verrà 
memorizzato sulla cassetta. Da no¬ 
tare che alla fine dell’operazione 
comparirà uno strano 7SYNTAX 
ERROR IN 3, di cui però non si 
dovrà tener conto. 

In conclusione, per mezzo del pro¬ 
gramma CARICATORE si sono ri¬ 
costruiti, byte per byte, sia il pro¬ 
gramma principale (vedi listato 2) 
che, immediatamente dopo, l’insie¬ 
me dei dati, ognuno dei quali occu¬ 
pa un solo byte. La chiave di volta 
sta nella serie di POKE prima del 
SAVE nel programma CARICA¬ 
TORE. Con essi infatti si inserisce 
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un falso limite del programma: si dà 
cioè come suo inizio la locazione 
4097 e come fine la 6203, quando in 
effetti il programma terminerebbe 
alla locazione 4362; i rimanenti byte 
(dal 4363 al 6201) sono occupati dai 
dati che così vengono indissolubil¬ 
mente legati, pur non facendone 
parte, al programma in BASIC. 

Ricapitolando, abbiamo ora un 
programma di 2106 byte, di cui solo 
266 sono riservati al BASIC (vedi 
figura 2). Lo stesso programma, 
scritto interamente in BASIC (e 
quindi con le linee DATA), avrebbe 
richiesto non meno di 5700 byte e 
quindi l’aggiunta di un’estensione di 
memoria. 



Il programma 

Il programma ora in memoria è 
quello del listato 2. Non ci si lasci 
ingannare dal suo aspetto “tarchia¬ 
to”; esso infatti, come si è appena 
detto, ha un’invisibile coda di dati. 
Dopo il RUN il VIC, trasformato in 
una specie di organo a nastro, ese¬ 
guirà integralmente la celeberrima 
Ave Maria che Charles Gounod 
compose sul Primo Preludio dal 
“Clavicembalo ben temperato” di 
J.S.Bach. Nel programma, la varia¬ 
bile T ha funzione di tempo che, alla 
fine dell’esecuzione (fine linea 2), 
aumenta notevolmente per dare 
maggior “respiro” alle ultime battu¬ 
te del brano. L’ultima nota viene 
infine smorzata dal ciclo della varia¬ 
bile T (qui usata con funzione di 
volume del suono) nella seconda 
parte della linea 3. 

Alla voce bassa (36874) ed a quel¬ 
la media (36875) è affidata l’esecu¬ 
zione del Preludio di Bach (con una 
sola piccola licenza), mentre la voce 
alta (36876) esegue il “canto” del- 
l’Ave Maria di Gounod. La maggio¬ 
re durata delle note di questo “can¬ 
to” è solo apparente, dato che i valo¬ 
ri delle note vengono inseriti nelle 
tre locazioni di memoria ad interval¬ 
li uguali. 


Listato 3. I DATA da inserire. 


0 , 

54, 

16, 

0, 

0, 14 

3, 34, 20 

, 20, 20 

, 20 

, 28, 28 

, 141 

, 32, 

18, 

73 

, 76, 

32, 

86, 

73 , 

67, 

32, 

66. 

69, 

78, 32, 84, 1 

69, 77, 80, 69, 8 

2, 65 

, 84, 

79, 

14 

1, 32, 

32 

, 32, 

32- 

32 

, 18 

, 68 

, 73, 

32, 73, 

46, 

30, 

73, 

90, 30, 

73, 0 

, 112. 

16 

, 1 

, 0, 1 

53, 

34, 

147.. 

34 

, 58 

, 89 

, 178 

, 53, 57, 

55 

, 54, 

53, 

53, 76, 

173. 

31, 5 

4, 

56, 

55, 5 

>2, 

58, 7 

7.. 1 

78, 

76, 

170 

, 49, 

58, 72, 

173 

, 77, 

170 

, 49, 58 

, 131 

, 72, 

170 

, 5 

8, 44, 

49 

, 53, 

58, 

' 7 “i 

, 17: 

8, 5 

2, 51 

, 54, 51, 

58 

, 84, 

178 

, 49, 53 

, 48, 

0, 16 

5 , 

16, 

2, 8, 

65 

, 178 

, 194, ■ 

40, 

75,, 

41, 5 

8, 66, 179, 

194, 

40, 

73, 170, 

49, ■ 

41, 58 

, 6 

7, 

178, 1 

94, 

40, 

75, 

170 

, 50 

, 41 

, 58. 

75, 178, 

75 

, 170 

, 51 

, 58, 88 

, 178 

, 137, 

48 

, '56, 41. 

58 

, 139 

, 55 

, 1 

78, 

50, 

167, 

84, 178, 

52, 

48, 

48, 

0, 213, 

16, 3 

, 8, 1 

51, 

76 

, 44, 

65, 

38, 

151, 

77 

, 44 

, 66 

■ 58, 

151, 72, 

44 

, 67, 

58, 

139, 65 

, 178 

, 51, 

167 

, i 

29. 84, i 

78, 4 

9, 5 

3, 

164, 

67, 

169, 

171, 46, 

43 

, 49, 

58, 

151, 72 

, 170 

, 50, 

44. 

84 

, 58, 

138 

, 58 , 

128 

■ 0 

9, 

17, 

4, 0 

, 129, 82 

, 178, 46, 1 

64, 84, 

58, 130, 58 

, i 

51, 

36, 49, 

54, 3 

2, 1 

70, 

33, 

172 

, 58, 

50, 44, 

43, 

49, 

54, 

58, 151, 

51, ? 

56, 56 

, 5 

6 , 

52, 17 

0, 

88. 1 

72, 

50, 

50, 

44, 

83, 

172, 54, 

.170 

, 50, 

58, 

138, 89 

, 58, 

137, 

50, 

0, 

0, 0, 

0, 

195, 

0, 

9, ; 

207, 

0, 

0, 21 

5, 0, 0, 

225 

, 0, 

0, 2 

31, 0, 0 

, 215 

, 0, 0 

, 2 

25, 

0, 0, 

23 

1, 0, 

0, 

195 

, 0, 

0, 

207, 

0, 0. 215 

, 0 

, 0, 

225, 

0, 0, 231, 0 

, 0, 215, 

0, 

0, 22 

:3, 

0, 0. 

231 

, 0 

, 0, 

195 

, 0, 

0, 201, 3 

• 0 

, 219 

, 0, 

0, 228, 

0, 0 

• 232, 

8, 

0, 

219. 

0, 

0, 22 


8> 0.' 0, 232.- 0. 0.. 195.. 0, 0. 201., 0, 0, 219, 0, 0, 223. 0, 0, 232, 0. 0, 219, 

0, 223, 0, 0, 232, 0, 0, 191, 0, 0, 201, e, @, 215- 0, 0, 228, 0, 0, 232, 0. 

0, 215, 0, 0, 223, 0, 0, 232, 0, 0, 191, 0, 0, 201, 0, 0, 215. 0- 0, 223, 0. 0, 

232, 0, 0. 215, 0. 0, 228, 0, 0, 232, 0, 0, 195, 0, 0, 207, 0, 0, 215, 0, 0- 22S 

, 0. 0, 231, 0, 0, 215, 0, 0. 225, 0. 0, 231, 0, 0, 195, 0, 0, 207, 0, 0, 215, 0 

, 0. 225, 0, 0, 231, 0, 0, 215, 0, 0, 225, 0, 0, 231, 0, 0, 195, 207, 0, 287, 20 

7, 0, 215. 207, 0, 225, 207, 0. 231, 287, 0. 215. 207, 0. 225, 207, 0, 231. 207, 

0, 185, 207, 0. 207, 207, 0, 215, 207, 0, 225, 207, 0, 231, 207, 0, 215. 207, 0 
, 225, 207, 0, 231. 207, 0, 195, 209, 0. 201, 209, 0, 219, 209, 0, 228- 209. 0, 
232, 209, 0, 219, 209, 0, 228, 209, 0, 232, 209. 0, 195, 209, 0, 201, 209, 8, 21 
9, 209, 0, 223, 209, 0, 232. 0. 0. 219, 0, 0. 223, 209, 0, 232, 209. 0, 191, 215 
, 0, 201. 215, 0, 215, 215, 0, 223, 215, 0. 232, 215, 0. 215, 215. 0, 223. 215, 
0, 232. 215, 0, 191, 215, 0. 201, 215, 0, 215. 215. 0. 223, 215, 0, 232, 201, 0, 
215, 201, 0, 228, 201, 0. 232, 201, 0, 195, 207. 0, 207, 207, 0, 215, 207, 0, 2 
25, 207, 8, 231, 207, 8, 215, 207, 8, 225, 207, 0, 231, 207, 0, 195, 207, 0, 207 
, 207, 0, 215, 0. 0, 225, 0, 0, 231, 0, 0, 215. 0, 0, 225, 0, 0, 231, 207, 0, 19 
5, 219. 0, 207, 219, 0, 219, 219, 0, 23), 219, 0, 237, 219, 0, 219, 219, 0, 231, 
219, 0. 237, 219, 0, 195, 219, 3, 207, 219. 0, 219, 133. 0, 231 133, 0, 237, 1 

91, 0, 219, 191, 0, 231, 195, 0, 237, 195 0, 195. 201 0, 201, 201, 0. 212, 201 

. 0 219, 201, 0. 228, 201, 0, 212, 201, 0. 219, 207, 0, 228, 207, 0, 195, 201, 

0, 201, 201, 0, 212, 201. 0, 219. 201, 0. 223. 0, 0, 212, 0, 0, 219, 0. 0, 228, 

201, 0, 191, 215, 0, 201, 215. 0, 215, 215, 0, 228, 215, 0, 235, 215, 0. 215, 21 

3. 0, 228, 215, 0, 235. 215, 0, 191, 213, 0, 201, 215, 0, 215, 175, 0, 223. 175, 
0, 235 183, 0, 215, 183, 0, 223, 191, 0. 235, 191, 0, 191, 195, 0, 195, 195, 0 

, 207. 195, 0, 215, 195. 0. 225, 195, 8, 207, 195, 0. 215. 201, 0, 225, 201, 0, 
191, 195, 8, 195, 195, 0, 207, 195, 0, 215, 195, 0, 225, 0, 0, 207, 0, 0. 215, 0 

, 0, 225, 0, 0, 183, 225. 0, 195, 225, 0. 207, 225, 0, 215, 223, 0, 225, 223, 0, 

207, 225, 0, 215, 225, 0, 225, 225, 0, 183, 225, 0, 195. 225, 0, 207, 193, 0, 2 
15, 193, 0, 225, 201, 0, 207, 201, 0. 213. 207, 0, 225. 207. 0. 147. 212, 0. 183 
212 0- 201, 212, 0, 212, 212, 0, 223, 212. 0, 201, 212, 0, 212, 207, 0, 225, 

207, 0, 147, 201, 0, 183, 201, 0, 201, 201, 0, 212, 201, 0, 225, 183, 0, 201. j.s 
3, 0, 212, 183, 0, 223. 183, 0, 175, 191- 0, 191, 191, 0, 201, 191, 0, 215, 191, 
0, 223, 191, 0, 201 191, 0, 215- 191, 0, 223, 191, 0, 175, 0, 0, 191, 0. 0, 20 
1, 0, 0, 215, 0, 0, 223, 201, 0, 201, 201, 0, 215, 201- 0, 223, 201, 0, 175, 207 
, 0, 187, 207, 0, 207, 207, 0, 215, 207, 8, 227, 207, 8, 207, 207, 0, 215, 207, 
0, 227, 207, 0, 175, 207, 0, 187, 207 0, 207. 207, 0, 215, 207, 0, 227, 209, 0, 

207, 209, 0, 215, 215, 0, 227, 215. 0, 163, 219, 0, 183, 219. 0, 201, 21.9, 8, 2 
09, 219, 0, 225, 219. 0, 201, 219, 0, 209, 219, 0, 225, 183, 0- 163- 183, 0. 

133, 133, 0, 201, 183, 0, 209, 183, 0, 225- 0, 0, 201, 0, 0, 209, 0, 0, 225, 20 
1, 0, 163, 201, 0, 179, 201, 0, 201, 201, 0, 209, 201, 0, 223, 201, 0, 201, 201. 
0, 209, 201, 0, 223, 201, 0, 163, 201, 0. 179, 201, 0, 201. 201, 0, 209, 201, 0 
■ 223, 207, 0. 201, 207, 0, 209, 209, 0, 223, 209, @, 159, 215- 0. 175, 215. 0, 
195, 215. 0, 215, 215, 0, 225, 215, 0, 195, 215- 0, 215, 215, 0, 225, 215, 0, 15 
9, 175, 0, 175. 175- 0. 195, 173. 0, 215, 175, 0, 225, 0. 0, 195, 0, 0, 215, 0, 

0, 225, 195, 0, 159, 195, 0, 163, 195, 0, 183, 195, 0. 195, 195, 0, 209, 195, 0, 

183- 193, 0. 195, 195, 0. 209, 195, 0, 159, 195, 0, 163, 193, 0, 183, 193, 0, 1 

95, 195, 0, 209, 201, 0, 183, 201, 0, 195, 207, 0, 209, 207, 0. 147, 209, 0. 163 
, 209, 0, 133, 209, 0, 195, 209. 0, 209, 209, 0, 183, 209, 0. 195, 209, 0. 209, 
209. 0, 147, 209, 0, 163, 209, 0, 183. 209, 0, 195, 209, 0. 209, 215, 0. 183, 21 

5, 0, 195, 219, 0. 209, 219, 173. 0, 223, 201, 0, 223, 215. 0, 223, 223. 0. 223, 

232, 0, 223, 215, 0. 223, 223, 0, 219, 232, 0, 219, 173, 0, 215, 201, 0, 215, 2 
15. 0, 215, 223. 0, 215, 232, 0, 201, 213, 0, 201, 223, 0, 201, 232, 0, 201, 195 
, 0, 207, 207. 0, 207, 215, 0, 207, 225, 0. 207, 231, 0, 207, 215, 0, 207. 223, 

0, 207, 231, O, 207, 195, 0, 207, 207, 0, 207, 215. 0, @, 225, 0, 0, 231, 0, 0. 

215, 0, 0, 225. 0, 0, 231, 0. 0, 195. 0, 215, 215, 0. 215, 221, 0, 215, 225- 0, 

215, 231, 0, 213- 221, 0, 215, 223, 0, 215, 231, 0, 2i5, 193, 0, 207, 2i5, 0, 20 
7, 221, 0, 207, 225, 0, 207, 231, 0, 0, 221, 0, 0, 225, 0, 0, 231, 0, 207, 163, 

0, 219, 209, 0, 219, £19, 0, 219, 225, 0, 219, 231, 0, 219. 219, 0, 219, 225, 0, 

219, 231, 0, 219. 163, 0, 183, 209, 0, 183, 219, 0, 183, 225, 0, 183, 231, 0. 0 

- 219, 0- 0. 225. 9, 0, 231, 0, 0, 167, 0, 219, 195, 0, 219, 219, 0, 219, 223, 0 

, 219, 239, 0, 219, 219, 0, 219, 225, 8, 219, 230, 0, 219, Ì67, 0, 195, 195- 0, 
193, 219, 0, 191>, 225, 0, 193, 230, 0, 0, 219, 0, 0, 225, 0, 0, 230, 0, 219, 179 
, 0. 225, 209, 0, 225, 223, 0, 225, 225, 0, 225, £23, 0. 225, 223, 0, 225, 225, 

0. 225, 228, 0, 225, 179, 0, 203, 205, 0, 283, 223, 0, 203, 225, 0, 203, 228, 8, 
0, 223, 0, 0, 225, 0, 0, 228, 0 223, 175, 0, 225, 209, 0. 225, 215. 0. 225, 22 
3, 0, 225, 228. 0, 225, 2)5, 0, 225, 223, 0. 225, 228, 0, 225, 175, 0, 201, 209. 
0. 201, 215, 3. 0, 223, 0, 0, 228, 0, 201, 215, 0, 20). 223, 0, 201, 228, 0, 20 
t, 175, 0, 20) 207, 0, 201. 215- 0, 201, 225, 0, 201, 231, 0, 201, 215, 8, 201. 
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Seguilo listato 3. 


223, 0, 201, 231, 0. 201. 175, 0, 20i, 207. 0. 201, 215. 0, 201. 225. 0, 201. 2 
31, 0, 195, 215. 0. 195. 225. 0, 191, 231, 0, 191. 175, 0, 215. 201. 0- 215, 215 
, 0- 215, 225, 0, 215- 232- 0, 215, 215, 0, 215. 225, 0. 207, 232, 0. 207, 175, 
0, 195, 201. 0, 195, 215. 0, 193, 225. 0, 195. 232, 0, 0, 215, 0, 0, 223, 0. 0, 
232. 0, 195 175. 0. 209 201. 0, 209. 215, 9, 209. 223, 0. 209, 232. 0, 209, 21 
5, 0, 209 223. 0. 209, 232. 0, 209, 175, 0. 209, 201. 0. 209, 215, 0, 209. 223, 

0, 209. 232, 0, 207, 215, 0, 207, 223, 0. 201, 232, 0, 201. 175, 0, 223. 203. 0 
, 220, 219, 0, 223 225, 0, 223, 234. 0, 228. 219. 0, 223, 225. 0, 223, 234, 0. 

223, 175. 0, 215, 203, 0, 215, 219, 0, 215. 225, 0, 215, 234 0, 0, 219, 0, 0, 2 
25, 0, 0, 234. 0, 215, 175, 0, 219, 207, 0, 219, 213, 0, 219, 225, 0, 219, 235, 
0, 219, 215, 0, 219, 225, 0, 219, 235, 0, 219, i?5, 0, 219, 207. 0. 219, 215, 0, 
219, 225 0. 219. 235- 0, 223, 215, 0, 223, 225, 0. 225, 235. 0. 225, 175, 0, 2 

31, 201, 0, 231, 215, 0, 231, 225, 0, 231, 232, 0, 231, 215, 0, 231, 225, 0, 231 
, 232, 0. 231, 175- 0, 231, 201, 0, 231, 215. 0, 225, 225, 0, 225, 232, 0, 215, 
215 0, 215, 225 0, 207. 232, 0. 207. i 75 • 0. 201, 201. 0. 201, 215- 0, 201. 22 

3, 0■ 201, 232, 0, 201, 215, 0, 201, 223, 0, 201- 232, 0, 201, 175, 0. 201. 201. 
0. 201- 215, 0, 219, 223, 0, 219, 232, 0, 223, 215. 0, 223. 223. 0, 219, 232, 0 
■ 219, 135. 0, 215, 195, 0, 215, 215, 0, 228, 221, 0, 228, 231, 0, 223, 215, 0, 
223, 221, 0. 215, 231, 0, 215, 135. 0, 209, 195, 0, 209. 215 0, 201, 221, 0, 20 

1, 231, 0. 191, 215- 0, 191, 221, 0, i?5, 231. 0, 175, 135, 0, 195, 195, 0, 195, 
9, 163, 195. 0. 133 195, 0. 195- 195, 0, 209, 195- 0, 193, 195, 0, 183. 195. 0 

, 195 195, 0, 183, 195, 0, 163, 193, 0, 183, 195. 0, 163, 195, 0, 147, 195, 0- 

163, 195, 0. 147, 195, 135, 0, 215, 191, 0, 215, 0, 215, 215, 0- 223, 215, 0, 22 
8 - 215, 0, 232, 215, 0, 228, 215, 0, 223, 215, 0, 228. 215, 0, 223, 215, 0, 215, 
215, 2, 223, 215, 0, 201, 0, 0, 209, 0, O, 207, 0, 0. 201. 0 135, 0, 0. 195, 0 
, 0, 0, £07, 0, 0, 215, 0, 3, 225. 0. 


Volendo ascoltare il solo Preludio 
(stupendo nella sua apparente sem¬ 
plicità) si apportino al programma 
le seguenti modifiche: 
linea 1: Q = 100 (invece di Q = 150) 
linea 3: POKEL, 0: POKEM.A: PO- 
KEH,B (invece di POKEL,A: PO- 
KEM,B: POKEH.C). 

Con opportune variazioni del pro¬ 
gramma si possono inoltre ottenere 
numerose variazioni sul tema. Si 
provi ad esempio a porre Q = 090 
(non Q = 90) nella linea 1, K = K + 4 
nella linea 2 ed a variare la linea 3 
come per l’ascolto del Preludio. 

Le ulteriori variazioni dipenderan¬ 
no unicamente dalla nostra fantasia; 
si dovrà fare solo attenzione a non 
variare la lunghezza del programma 
(ecco perché Q = 090) oppure, va¬ 
riandone la lunghezza, bisognerà 
aggiornare il valore di K nella linea 1 
secondo la formula: K = PEEK(45) 
+ 256 ★ PEEK(46) - 1840. E Bach 
mi perdoni. 


REMarks listato 1 

Linea 1 - Viene definita la variabi¬ 
le di ciclo R con valore da 4096 a 


6201. Essa viene di volta in volta 
stampata con il punto interrogativo 
dell’INPUT (si noti il punto e virgo¬ 
la dopo PRINTR). 

Il valore inserito è quindi trasferito, 
come variabile A, nella locazione R. 
Alla fine del ciclo viene stampato il 
messaggio per la preparazione della 
cassetta. 

Linea 2 - Continua il messaggio 
della linea 1 con la richiesta di pre¬ 
mere il tasto-funzione FI e lo si at¬ 
tende con WAIT198.1. 

Segue la serie di POKE necessari per 
il posizionamento dei puntatori alle 
varie locazioni: 


Puntatori 

Funzione 

Valori 

inseriti 

Locazione 

43-44 

Inizio 

BASIC 

1-16 

4097 

45-46 

Inizio 

variabili 

59-24 

6203 

47-48 

Fine 

variabili 

59-24 

6203 

55-56 

Fine 

memoria 

0-30 

7680 


Linea 3 - Continuano i POKE; 
alla fine il comando SAVE provoca 
la comparsa del messaggio PRESS 
RECORD & PLAY ON TAPE per il 
“salvataggio” su cassetta del pro¬ 
gramma. 


REMarks listato 2 

Linea 1 - Dopo la pulizia dello 
schermo vengono definite le variabi¬ 
li. Y: inizio della routine di scroll del 
sistema operativo. L: voce bassa. M: 
voce media. H: voce alta. Viene por¬ 
tato il volume al massimo (POKEH 
+ 2,15). K: prima locazione di me¬ 
moria occupata dai dati. T: variabile 
di ritardo con funzione di tempo. 

Linea 2 - Vengono definite le tre 
variabili (A, B, C) che di volta in 
volta verranno inserite nelle tre voci, 
rispettivamente bassa, media ed al¬ 
ta. I valori alle tre voci vengono as¬ 
segnati “leggendo” (PEEK), per 
mezzo della variabile K, il contenu¬ 
to delle locazioni nella parte di me¬ 
moria riservata ai dati (dalla loca¬ 
zione 4363 alla 6201). Il valore di K 
viene aumentato di tre unità per po¬ 
ter leggere le successive note. Viene 
definita la variabile casuale X. Ver¬ 
so la fine del brano, in corrispon¬ 
denza del valore 2 di A, il tempo T 
viene aumentato da 150 a 400. 

Linea 3 -1 valori delle tre variabili 
vengono inseriti nelle rispettive lo¬ 
cazioni di memoria. In corrispon¬ 
denza dell’ultima nota il valore di A 
sarà uguale a 3 per cui, con il ciclo di 
fine riga (dove viene riutilizzata la 
variabile T ormai inutile come tem¬ 
po), il volume viene portato lenta¬ 
mente (STEP-.01) a zero ed il pro¬ 
gramma termina. 

Linea 4-11 ciclo della variabile R 
serve per creare il tempo (.TOT cor¬ 
risponde a 0 TO T). Con i due PO¬ 
KE successivi si stampa, in una posi¬ 
zione a caso sull’ultima riga dello 
schermo, il carattere corrispondente 
al foro del nastro di carta simulato e 
lo si colora con un colore scelto a 
caso. Viene quindi provocato !o 
scroll dello schermo (SYSY) e si ri¬ 
torna alla linea 2. g 
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Il VIC 20 
sfruttato 
ai limiti 

di Renato Contini 

S upponete di essere un alie¬ 
no ... e scendete con la vo¬ 
stra astronave verso una 
metropoli terrestre. Dovete distrug¬ 
gere i grattacieli prima di schiantar¬ 
vi contro essi e per far questo potete 
sganciare le vostre bombe, ma dove¬ 
te anche fare attenzione a non esau¬ 
rire l’energia. Il programma gira su 
VIC 20 non espanso con 3,5 Kbyte 
di RAM ed è un ibrido composto da 
BASIC e codice macchina. Il gioco 
dispone di ben nove livelli di diffi¬ 
coltà, indicazione del punteggio più 
alto, indicazione del carburante, in¬ 
dicazione delle astronavi a disposi¬ 
zione (tramite delle piccole facce che 
ammiccano in continuazione). Il 
tutto è poi completato dall’uso di 
ben 64 caratteri in HI-RES che ven¬ 
gono definiti dall’utente. 

Il programma è costituito da 2 
differenti parti: questo è servito a 
poter compattare il tutto nei 3,5 
Kbyte. Abbiamo perciò due pro¬ 
grammi, il maggiore dei quali in ter¬ 
mini di complessità è il primo (figu¬ 
ra 1). Questo contiene infatti le spe¬ 
cifiche per generare i caratteri in HI- 
RES e i dati per creare 5 routine in 
linguaggio macchina che hanno 
un’importanza fondamentale (suo¬ 
no ecc.). 

Tale programma occupa precisa- 
mente 3,5 Kbyte e va scritto esatta¬ 
mente come riportato nel list. L’alto 
numero delle virgole una dopo l’al¬ 
tra rappresenta gli zeri: vanno quin¬ 
di ricopiate esattamente come sono. 

Questo programma deve essere 
salvato ed accuratamente verificato 
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perché ogni minimo errore può por¬ 
tare a conseguenze irrimediabili ri¬ 
guardo al corretto funzionamento 
del gioco. Prestare la massima cura 
nel digitare è essenziale: una virgola 
in più od in meno ne determina il 
funzionamento. Alcune linee supe¬ 
rano gli 88 caratteri, così per inserir¬ 
le completamente è necessario usare 
la forma abbreviata della parola 
DATA, ovvero D shift A. Come si 
noterà alcuni dati vengono “poka- 
ti” in alcune locazioni strane come 
quelle libere da 673 a 767. 

Tramite l’utilizzo di queste locazio¬ 
ni libere si riesce ad adattare in 3,5 
Kbyte di memoria un programma 
che prenderebbe comodamente più 
di 4 Kbyte. 

Anche il secondo programma (fi¬ 
gura 2) va digitato con estrema cau¬ 
tela poiché vengono usate più di 40 
variabili ed anche qui compaiono 
linee al di sopra degli 88 caratteri. 
Lo schermo viene posto rettangola¬ 
re, 26 per 19, tramite le istruzioni 
contenute nella linea 10000. I pun¬ 
teggi vengono visualizzati in modo 
eccellente. Attenzione, perché una 
volta lanciato il programma non 
può più essere fermato (è quindi fon¬ 
damentale salvarlo prima di dare il 
RUN). Infatti le istruzioni della linea 
5 disabilitano i tasti RUN STOP e 
RESTORE. 

La linea 5 può essere omessa per¬ 
mettendo cosi di fermare il pro¬ 
gramma per eventuali modifiche 
prima di salvarlo definitivamente. 
Se avete ora salvato i due program¬ 
mi uno dietro l’altro non resta che 
caricare e lanciare il primo il quale 
alla fine caricherà e lancierà il se¬ 
condo. 

Alla partenza del gioco le istruzioni 
vengono stampate al centro dello 
schermo mentre tre verdi testoline 
sorridono e si accigliano all’unisono 
al tempo di un frenetico boogie che 


apprezzerete dall’altoparlante del 
vostro TV. 

Le istruzioni sono molto semplici: la 
barra dello spazio permette di sele¬ 
zionare il livello di difficoltà del gio¬ 
co che poi rimane costantemente in¬ 
dicato sullo schermo (in alto in cen¬ 
tro); con FI si fa partire il gioco. 

Alla partenza lo schermo viene 
pulito (con l’uso di una routine in 
linguaggio macchina) e sotto ai vo¬ 
stri occhi compare una città costitui¬ 
ta da grattacieli multicolori. La vo¬ 
stra nave stellare gradatamente per¬ 
derà quota mentre voi, frenetica¬ 
mente, lancerete bombe sia per di¬ 
struggere la città, sia per evitare di 
schiantarvi contro le case più alte. 
Ogni tasto va bene per sparare, ma il 
più comodo è forse la barra. Atten¬ 
zione perché ad ogni sparo diminui¬ 
sce il carburante. Un altro interes¬ 
sante aspetto del gioco è dato dalla 
possibilità di poterlo fermare per 
poi riprenderlo sempre dallo stesso 
punto. Si ha quindi la possibilità di 
fare una pausa premendo il primo 
tasto in alto a sinistra. Per riprende¬ 
re il gioco basta premere nuovamen¬ 
te lo stesso tasto. In caso di comple¬ 
tamento del carburante l’astronave 
esploderà è lo stesso accadrà schian¬ 
tandosi contro un grattacielo. 

Nel caso di completamento dell’at¬ 
tacco (città distrutta completamen¬ 
te) si avrà invece un bonus di punti 
dipendente dall’energia avanzata, 
ed inoltre un piccolo alieno uscirà 
dall’astronave congratulandosi. 
L’altezza dei grattacieli aumenta a 
seconda degli schermi completati. 
Una nuova astronave viene regalata 
dopo 10000 punti e tale punteggio è 
anche il minimo da realizzare per 
l’HI-SCORE. 

Le routine in linguaggio macchi¬ 
na sono abbastanza complesse, la 
prima provvede a cambiare espres¬ 
sione alle piccole faccie (circa due 
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volte al secondo) alterando dei valo¬ 
ri numerici nei byte della generazio¬ 
ne caratteri. La seconda routine 
controlla se viene premuto il tasto 
per la pausa e, se così, ferma il gioco 
per riprenderlo poi ad una nuova 
pressione del medesimo tasto. 

La terza routine fa uso di un conta¬ 
tore ed un puntatore ad un listato di 
note musicali. Il listato delle note è 
contenuto in 0,5 Kbyte dalla loca¬ 
zione 37888 alla locazione 38399 


(nibble colore non usati). Poiché 
soltanto i primi 4 bit di ogni byte 
sono utilizzati ogni nota è così scrit¬ 
ta in due parti. 

I primi 4 bit di ogni nota sono nella 
lista che parte dal byte 37888 e i 
secondi 4 sono nella lista che parte 
dal byte 38144. La nota finale di 
ogni list ha uno zero. La melodia 
può essere cambiata cambiando le 
note, per far questo si utilizzeranno 
le seguenti linee BASIC: 


1 FOR I = 0 TO 99 : INPUTN : IF 
N =-l THEN END 

2 Q=(N AND 240)/16/POKE 
37888+1,Q 

3 POKE 38144+I,N-Q ★ 16 

4 NEXT I 

Lanciando questo piccolo program¬ 
ma altro non bisogna fare che inseri¬ 
re le note una dietro l’altra. Detto 
questo è detto tutto, non resta che 
digitare questo spettacolare pro¬ 
gramma. ■ 


Figura 1 - Il programma numero 1. 


1 e PRI NT " 33" : POKE: 55,0 : POKE:56,28 s CLR 
100 F0R2= 7 168T 07679 : READX : POKE:2 , X ; NEXT 
: FOR2=673T0 751s REHDX:POKEZ,X :NEXT 
200 0ATA254,254,146,146,146.146,254,25 
4,146.254,146,254,146.254,146,254,254,6 
,254.254 

210 DPIT0254,68,254.254,254.170, 170 ,170 
.170,170,170,254,,16,16.56,56,124,254,2 
,16,56 

220 DATA56,254,170,254,170,254,16,16,1 

6.56.56.254.130.254.16.16.16.56.124.124 
,54 ,254 

240 DATO,108,108,108,108,254,254,254,, 
36,60,24,36,60,24, 

250 DRTA255,255,136,85,34,255,255,,,, , 
,2,142,238,254,,,,,,18,86,246 
26© DATA,,,8,10,94,126,254,,,2,130,138 
,218,222,254 

27© DATA,,,,128,146,214,246,,,,123,192 
. 200,202,238 

280 DATA,,219,146,210,32,219,,,,179,17 
0,179,170,171,,,,87,82,114,32,87, 

290 DATA,,117,69,87,85,117, 

300 DATA 124,254,198,186,254,214,214,12 

4.124.186.198.254.214.214.254.124 

320 DATA,233,137,137,233,137,137,134,, 
116,68,68,116,68,68,119 
34© 0ATA3,15,60,127,201,127,63,8,128,2 
24,12©,252,38,252,248.32 
360 DATAI,,8,36,129,40,5,,,30,129,40,6 
4,26,64,40 

380 DATA©,34,136,6,32,10,,18,64,,32,13 
400 DATA,,,,,,,,,,,, , , , 

420 DATA 153,153,126: ,24,60,36,66,195,24 
24,126 , 153,60,36,36.102 
440 DATA3,2,34,2,2,2,34,3 
450 DATA255,,255,255,255,255,,255,255, 
,254,254,254,254,,255 
460 DATA255,,252,252,252,252,,255,255, 


248,248,248,243,,255 


478 

DATA255, 

,240 , 

,240,248 

,240,,255,255 

2:24 

,224,224, 

224,, 

,255 


430 

DATA255, 

, 192, 

. 192,192 

,192,,255,255 

128,, 

, 1.28, 128, 

128, 

.255 


518 

DATA255, 

, , , , 

. , 2555 , , , 

154,146,154,1' 


6,217, 

550 DATA,,180,164,180,164,54,,255,141, 
185,141,189,139,189,255 
570 DATA56.108,198,198,198,108,56,,24, 
120,24,24,24,24,126, 

580 DATA124,198,6,12,56,96,254,,124,19 

8.6.28.6.198.124, 

590 DATA28,60,116,230,254,12,12,,254,1 

92.252.6.6.198.124, 

600 DATA60,96,192,252,198,198,124,,254 
,193,12,24,43,96,96, 

610 DATA124,193,193,124,193,193,124,,1 
24,193,198,126,6,12,120,,,,,32,,,32, 

620 DATA255,136,136,133,232,235,139,25 

5.255.140.171.171.139.171.172.255 

640 DATA255,199,95,199,223,95,199,255 
660 DATR255,239,223,129,223,239,255,25 
5,192,160,160,192,14,21,21,21 
1010 DATA120,169,174,141,20,3,169,2,14 
1,21,3,38,96,230,254,165,254,41,16,74,1 
70,160,8,189 

1020 DATA 168,23,153,247,28,232,136,208 
,246,165,197,201,8,203,37,160,,140,14,1 

44.32.159.255 

1030 DATA 165,197,201,8,240,247,32,159, 
255,165,197,201,8,288,247,32,159,255,16 
5,197,281,8 

1840 DATA240..247, 160,15,140, 14,144,76, 
77, 1 

2000 F0RZ=31.9T0414 : READX : POKEZ , X : NEXT : 
FORZ-0TO73:READX,V :P0KE37888+Z,X : P0KE38 
144 + Z,V :NEXT 

2018 DATA162,,169,32,157,52,38,157,186 
,30,202,208,247,96 
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Seguito figura 1. 

2020 DATA165,1,240,3,206,12,144 

2030 DAT A165,,240,57,198,249,208,53,17 

3.10.144.201.127.240.12.230.249 

2035 DATA 169,127,141,10,144,141,11,144 
204-0 DATA208,34,166,250,230,250,169,15 
,61,,148,10,10,10,10,133,248 
2045 DATA169,15,61,,149 

2050 DATAI01,248,240,13,141,11,144,141 
,10,144,169,7,133,249,76,194,234,169,1, 

133.249 

2060 DATA 169,,133,250,76,194,234 
3010 DATA 12,3,12,3,12,12,12,14,13,7,13 
,7,12,12,12,14,12,3,12,3,12,12,12,14,13 
,7,13,7 

3015 DATA12,15,13,7,13,1 

3020 DATA 13,1,13,8,13,11,14,1,14,1,13, 

8.13.11.13.1.13.1.13.8.13.9.14.1.14.1.1 

3.9.14.1 

3030 DATA 13,7,13,7,13,13,13,15,14,4,14 
,4,13,15,13,7,13,1,13,1,13,8,13,10,14,1 
, 14 , 113,10 

3040 DATA 13,1,12,3,12,3,12,12,12,14,13 
,7,13,7,12,11,12,13,13,7,13,7,13,1,13,1 
,12,15,12 

3050 DATA15,12,9,12,9,,,11,7,11,7,10,1 
5,10,15,10,3,18,3,9,15,9,15,, 

3060 POKE198,7 :P0KE631.76:P0KE632,207 : 
P0KE633,13 :P0KE634,82 :P0KE635,213: POKE6 
36,13 


Lista, simboli cjrafimi 

10 : 1 SHIFT HOME =CHR*<147) 


Figura 2. Il programma numero 2. 


5 POKE37150..2 

10 PRINTCHR*<8>:CLR:B=1000 :GOTO10000 

20 POKE36:379,8 : PR IHT " 3" CHR* < 8 > : CLR : B=5 
ODO :GOTO10000 

50 IFS>=1000ANDC1=0TWENC1 = 1:L=L+1 :POKE 
33889+L,5 :POKE8169+L,31 

60 PR I NT " SL" TAB19-LEN < STR * < S > >>RI GHT* < 
STR*< S>,LENC STR*C3> >-1>:RETURN 

100 IFM>8O9 5 THE NRET1JRN 

1 @3 IFPEEK < K > =,TAHDO=0THENGOSUB20000 : RE 
TURN 

105 IFPEEK <8151>=44THEND1 = 1:POKEE,0 :GO 
SUB20000:RETURN 

110 IF0=0THENP0KEV—E,240 :0=E:H=M+E:POK 
EV-2,235 : POKEE, E : POKEV-E , 0 : GOSIJB1500 :1F 
A5=ETHENRETIJRN 

120 N=N+D: IFPEEK<N>OITHENPOKEE,0 :POKE 
V—2,0 :GOTO160 

130 I FPEEK < N-D > ODANDPEEK < N-D >025THEN 
POKEN-D,I 

140 POKEN+C,P:POKEN,Q:RETURN 

150 POKEN-D,I :POKEN+C,P:POKEN,Q: RETURN 

160 IFH+DC8122THENP0KEN+D,RNDC E>*6+11 

170 IFPEEK < N >OA2THENP0KEN,I :S=S+2+W 


Seguito figura 2. 

130 I FPEEK C N-D > ODANDPEEK < N-D >025THEN 
POKEN-D,I 
190 POKEV-E,130 

200 G0SUB58: 0=0 :POKEV-E,0 :N=A3:RETURN 
1000 POKEN, I : M=M+E : IFM--8187THENA6=E 
1010 POKEC+M, F :POKEH+M,F:POKEM,D-E:POK 
EM+E ,0:1FPEEKCM+2> = ITHENRETIJRN 
1020 Bl=l:RETURN 

1500 IFPEEK<3151> =44THENA7=1 :RETURN 
1510 I FA8=1THEN1530 

1520 A5=A5+1 :1FA5>2THENA5=0:RETURN 
1530 P0KEA4,PEEK<A4 > + 1:1FPEEK <A4 >=44TH 
ENA4=A4-1 
1540 RETURN 
200© POKEV—2,0 

2005 POKEN,I :POKEV+E,138 :POKE0,0 :POKEV 
-3,0 :POKEM,IsPOKEM+E,I :M=M+E:F0RT=252T0 
128STEP-4 

2010 POKEV- E,T:POKEV-T,4 : R=RNDC1> *15+E 
: POKEN+C,R:POKEM+H,R:POKEM,27 :R=RND<l> * 
15+E 

2020 E: 1 =0 : POKEN+E , 28 : POKEN+C , R : POKEM+H 
,R : POKEM,29 :POKEN+E,30 :NEXT:POKEM,I :POK 
EM+E,I 

2025 IFD1O1THENPOKEM+27,RND <1>*6+11 
2030 POKEV+E,8 :FORT=l5TQ0STEP—.1 :POKEV 
, T : NEXT:L-L-1 :P0KE8170+L,I 
2040 0=0 : POKE1,0 :POKEV-E,0:1FL=©THEN35 
00 

2050 F0RT=S151T08167 :POKET,36 :NEXT:POK 
ET,37 :A4=S168 :FORT=0TO999:NEXT:B1=0 :GOT 
07000 

2090 FORT=8151TOS167 :POKET,36 :NEXT:POK 
ET,37sFORT=0TO2000:NEXT:GOTO8000 
3000 IFS>=BTHENB=S 

3010 PRINT"gW"TAB<26-LEN<STR*CB>>>RIGH 
T*<STR*CB >,LEN<STR*<B>>-1>; :RETURN 
350G FORT=0TO999:NEXT:PRI NT"9" TAB<136 > 

"av- s a"TABc i62>" iia a game o 

VER I 

3510 PR I NT " aa" TAB < 183 > " -" 

: POKEV,15:POKEV-3,8 :POKEV-4,0 :RESTORE:F 
QRT=0TO7 

3520 READC, D :: POKEV-2, C sFORU=0TO50*D : NE 
XT:POKEV-2,0 :NEXT:GOTO9U00 
3530 DATA225,4,215,2,215,2,219,4,215,3 
,223,4,225,4,0,50 

5000 PR I NT " a" TAB < 163 > " aCSM X SS IONE OK ! ! ” 
:POKEN+30723,3 :POKE0,0 :P0KE36874,0 :POKE 
36375,0 

5010 AS=E:FORT=0TO9:POKEN+3,33:FORU=0T 
099 :NEXT:POKEN+3,34 :FORU=0TO99:NEXT:NEX 
T:A7=0 

5020 POKE36876,240:GOSUB1500:GOSUB50:P 
0KE36376,8:S=S+2:IFA7=0THEN5020 
5030 A6=0 : A8=0 : F 0R.T=0 T0999 : NE X T : G 0 T 020 
90 

7080 D1=8 :M=7732:POKEV,15:POKE0,1 :POKE 
250,0 :POKEX,6 

7010 :GOSUB1000 :GOSUB100 :GOSUB108 : FORT 
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Seguito figura 2. 


=07 030 :NEXT: IFÉ 6=1THEH5000 

7620 IFB1 = 1 ORO 1 = 1THEN2000 

7030 GOTO7010 

8G00 R4=3168 : F'OKEQ, © : U=U+1 : SVS313 :POKE 
V,0 : POKEV, 65 8POKEZ,65:1FW>5THENW=5 

8010 FQRT=flT0fl+21 :IFRNDC1><.4-<G/30>-W 
/100THENNEXT:GOTO700O 

8020 R1=RNDC1>47+1 :R2=RHD<1>*6+1 + C G/2 > 
+ M/3 > : R3=RND ■: 1 >44 : R4=RHD < 1 > *5+4 

8030 FORIJ=TTOT-D*R2STEF-D :POKEC+U,R1 sP 
ÓKEU, R3 : NEXT r. POKEC+U , R1 : POKEU , R4 : NEXT : G 
OTO7000 

300© PRI NT " □" ; :P0KE33414, 3 : P0KE7634,48 
+0 : PR I NT " UQR : W000000 il- - : kll «ST : k.0000 
0 © " 

3010 FORT=0TO25 : PR I NT " jami" : NEXT : GOSU 
E3000 : FORT=©T017 : PR I NT : NEXT SPRINT " 111 " : 

FORT=0TO25 

3020 PR I NT " S-T " ; : NEXT : PR I NT ’’ 
i K •: •: " : 

3030 PR I NT " Ì3" TRE < 85 > " iSoTI I SS IONE UFO " TR 

E < 71)" ai-"TRB<57> "B/Jj 3= ST 

RRT" 

3040 PRINTTRB<45> "Un.: C=JSI SM3LIVELLO Gl 
OCO " TRE < 81 !:• " B>J3 = PRUSR " 

305© V=36878:V=374:Z=385:X=338: 0=26 : R= 
8038:C=30720:POKE650,1:E=1:F=4:H=C+1:I= 

3060 K=203 :..T=64 : P=3 : Q=3 : R2= 1 © : R3=300© : 
S=0 : C1=0 

3100 POKE243,1 : POKE250,0 : POKE©, 1 : POKE 1 


, 0 : POKEV ,15: POKEV , 0 : POKEZ , 0 : POKEX , 


;vs 


673 

3110 IFPEEK < K '> -- JTUENP0KE7634G+48 : GOTO 
9110 

9 120 IFPEEK<K > =33THENL=3:GOTO8000 
9130 IFPEEK <K > = ITHENG=G+E:IFG=10THENG= 
E 

3140 FORT=0TO99 ; NEXT : P0KE7694G+48 : GOT 
03110 

10000 G=1 :P0KE36S66,154 :P0KE36864,9 :PO 
KE36867, 38 : PDKE36369,255:P0KE36879, 3 : GO 
TO9000 

20000 FORT=0TO13 ;RETURN 


Lista sirntao 1 i ■gra.-fici 

20 : 1 SHIFT HOME =CHR$<147> 
1 HOME =CHR$<19> 

1 HOME =CHR*<19> 


60 
301.0 
3500 


3510 


1 HOME =CHR$<13) 

1 REVERSE =CHR*<18> 

1 HOME =CHR*<19> 

1 SHIFT RE VERSE =CHR$<146> 
1 REVERSE =CHR*<10> 

1 HOME =CHR$<13; 

1 RE VERSE =CHR$ < 13 > 


Seguito figura 2. 

5000 

» 

1 

HOME =CHR$ < 13 > 



1 

REVERSE =CHR* < 18 > 

9000 

- 

1 

SHIFT HOME =CHRi<147> 



1 

CRSR*- =CHRtC23> 

3010 

- 

1 

REVERSE =CHR$<13> 



1 

SHIFT REVERSE =CHR*C146> 



O 

CRSR+- =CHR$<29> 

9020 

. 

1 

REVERSE =CHR$ <18 > 



1 

SHIFT REVERSE =CHR$(146) 

9030 

• 

1 

HOME =CHR$< 13 



~f 

REVERSE =CHR$<13> 



1 

SHIFT REVERSE =CHR1<146> 



1 

REVERSE =CHR$<13> 

9040 

. 

1 

SHIFT REVERSE =CHR*<146> 



1 

REVERSE =CHR*<13> 



1 

SHIFT REVERSE =CHR$<146> 



1 

REVERSE =CHR*<18> 
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SHARP 

Alla ricerca del comando nascosto 

di Mauro Lenzi 

Molti di voi si saranno chiesti come mai la volta 
scorsa il LOOP del programma era fatto in modo da 
esaminare solo i caratteri da 1 a 107; la risposta è 
semplice: perchè al di sopra di quel numero ci sono 
cose ancora più strane delle precedenti! 

Eccovi il programmino della volta scorsa opportuna¬ 
mente modificato per visualizzare i caratteri al dis¬ 
opra del 107 e contemporaneamente stamparli: 


cioè che esse vengano riconosciute solo come tali, ma 
che in realtà non possano venire eseguite. 

Tuttavia si possono fare alcune congetture, che 
potrebbero forse essere molto azzardate, ma in ogni 
caso vi faranno passare lunghe notti insonni ... 

Esaminiamole una per una. ERROR quasi sicura¬ 
mente non è un’istruzione vera e propria e gestibile 
da tastiera, semplicemente quando viene inviato alla 
subroutine di stampa il numero 150 viene automati¬ 
camente visualizzata la scritta ERROR. Una cosa 
curiosa è però che questo pseudocomando, come 
tutti gli altri citati sopra, venga riconosciuto come 
tale anche se inserito semplicemente da tastiera. Digi¬ 
tiamo: 


10 FOR L = 107 TO 227 
20 POKE 45135, L 
30 AS = “ ” 

40 PAUSE AS; “ ”; L 
50 LPRINT AS; “ ”; L 
60 NEXT L 
70 END 

Inizialmente vedrete comparire una lunga fila di em¬ 
me (M) sulla stampante e contemporaneamente un 
misterioso simbolo della corrente alternata (~) sul 
display, ma non scoraggiatevi, perchè presto inizie¬ 
ranno le sorprese. 

A partire infatti da L = 125 vedrete sfilare sotto i 
vostri occhi tutti i comandi utilizzabili dal vostro 
Sharp PC-1251 ! ! ! La cosa più interessante è che però 
alcuni di questi non sono mai stati dichiarati dalla 
casa costruttrice. 

Tre di questi ci sono ormai più che noti e sono 
naturalmente: 

PEEK per L = 175 

POKE per L = 206 

CALL per L = 201 

Ma osservando bene, possiamo trovarne molti altri: 


COM3 

per L = 137 

ERROR 

per L — 150 

KEY 

per L = 153 

SETCOM 

per L = 155 

ROM 

per L = 158 

DEBUG 

per L = 181 

OUTSTAT 

per L = 190 

INSTAT 

per L = 191 

OFF 

per L = 205 


Trovare il modo di utilizzare queste istruzioni non è 
imptesa facile, è probabile anzi che sia impossibile, 


10 ERROR 

Proviamo a fare girare il programma: comparirà ER¬ 
ROR 1 IN 10. 

Se ora andiamo a rivedere la linea di programma, il 
cursore sarà sulla E di ERROR, ma se lo spostiamo di 
un solo posto a destra, il cursore si posizionerà dopo 
tutta la scritta, come accade quando scriviamo delle 
normali istruzioni. 

Anche per quanto riguarda DEBUG e OFF non 
c’è niente da aggiungere, infatti in qualunque forma 
abbia provato ad inserirli, il risultato è sempre ER¬ 
ROR 1. 

Interessante, ma, almeno per ora, irrisolta, è l’utiliz¬ 
zo dell’istruzione SETCOM. Il nome è assai invitante 
perchè potrebbe stare per “Set Command”, tuttavia 
anche in questo caso non sono riuscito a trovare la 
giusta sintassi (se esiste). 

Le cose vanno un po’ meglio per gli altri comandi: 
innanzitutto, dopo molte prove, ho trovato una pos¬ 
sibile sintassi dell’istruzione KEY; essa dovrebbe 
funzionare in questo modo: 

KEY ON o KEY OFF 

Se digitiamo infatti una di queste due istruzioni ve¬ 
dremo che il computer “mediterà” per qualche deci¬ 
mo di secondo, facendo comparire la scritta “busy” 
ed infine ci darà un ERROR 8, cioè un errore di I/O, 
come se il computer abbia cercato qualche periferica 
inesistente. 

La sintassi di INSTAT (In Status?) dovrebbe inve¬ 
ce essere la seguente: 

INSTAT n. oppure solo INSTAT 

In entrambi i casi si verifica un ERROR 8. 

La corrispettiva OUTSTAT (Out Status?) ha invece 
una sintassi più chiara: 

OUTSTAT n. (con n. compreso o uguale fra 0 e 255) 
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Ne segue ancora una volta un ERROR 8; è tuttavia 
interessante notare che se n. è maggiore di 255 o 
minore di 0 si verifica un ERROR 3, equivalente a 
“number out of range”. 

Anche ROM, sebbene possa apparire assurdo, ha 
una sua sintassi: se digitiamo infatti ROM otterremo 
il solito ERROR 8. (Forse che il computer sia andato 
a cercare se c’era una memoria ROM interfacciata?). 

Possiamo quindi concludere che queste istruzioni 
sono state forse immesse in previsione di future inter¬ 
facce o espansioni di memoria, tuttavia tutto è molto 
vago e dubbioso e sono convinto che ora che ho dato 
uno spunto, molti di voi troveranno altre cose curiose 
e impensabili in proposito. 


TEXAS TI 99/4A 

Print Using in TI BASIC 

di Sergio Borsani 

Si è già parlato altre volte dei sostanziali vantaggi 
offerti dal Modulo SSS TI Extended BASIC. Se, 
tuttavia, molti comandi aggiuntivi sono insostituibi¬ 
li, soprattutto quelli per la creazione ed il controllo 
degli sprite, altri sono facilmente simulabili con la 
versione del BASIC residente. Ricordo che in molte 
riviste, i primi articoli sul TI 99/4A suggerivano un 
“trucco” per ottenere le funzioni AND e OR usando 
rispettivamente i comandi IF (A = B) ★ (A = C) 
THEN ... e IF (A = B + (A = C) THEN ..., dove 
naturalmente le espressioni tra parentesi sono scritte 
a puro titolo di esempio. Come queste, altre istruzio¬ 
ni non disponibili in TI BASIC si possono ottenere 
ugualmente anche se spesso non in modo così sempli¬ 
ce come negli esempi sopra citati ma ricorrendo a 
delle routine più o meno complesse. 

L’istruzione Print Using appartiene a questa catego¬ 
ria. La parola chiave Using viene usata per dare un 
formato alla stampa, sia su video che su stampante, e 
risulta particolarmente utile quando si debbano ta¬ 
bulare dei dati numerici. Infatti, se si vogliono inco¬ 
lonnare dei numeri con la funzione TAB, essi verran¬ 
no giustapposti con il margine sinistro e non con il 
rispetto della posizione delle unità, delle decine e così 
via. 

Se tutti i numeri sono interi, nella stampa, si dovrà 
rispettare il margine destro. L’istruzione Print Using 
assolve questo compito in modo molto semplice. 
Consideriamo innanzitutto la sua sintassi. 

PRINT USING “######”; N 
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In questo caso il numero individuato dalla variabile 
N viene stampato in un’area riservata di sei caratteri, 
con la cifra delle unità nell’ultima posizione a destra 
(le stringhe alfanumeriche vengono invece stampate 
a partire da sinistra). Se il numero N è composto da 
più di sei cifre, l’area di stampa riservata viene riem¬ 
pita con sei asterischi ad indicare che il campo non è 
sufficientemente ampio per contenere il valore indi¬ 
cato. L’istruzione TAB non è disponibile con la Print 
Using, pertanto chi volesse usarle entrambe dovrà 
ricorrere a due istruzioni separate consecutive: 

PRINT TAB(IO);:: PRINT USING “######”: 

123 

Per ottenere gli stessi risultati in TI BASIC la cosa 
è abbastanza agevole. E necessario trasformare la 
variabile numerica in variabile di stringa con la fun¬ 
zione STR$, calcolarne la lunghezza con la funzione 
LEN ed infine stampare il numero a partire da una 
colonna prefissata meno la lunghezza calcolata. 

A parole può sembrare un po’ complicato ma è 
necessaria una sola istruzione: 

PRINT TAB (10-LEN(STR$(N)));N 

ed il numero verrà scritto con la cifra delle unità sulla 
colonna 10, indipendentemente dalla sua lunghezza. 
Considerate il listato 1. Sono stati memorizzati dieci 
numeri nell’istruzione DATA di linea 140 ed il ciclo 
FOR NEXT seguente li stampa due volte: a sinistra 
con la semplice istruzione PRINT TAB(4);N; e a 
destra con la variante un po’ più complicata appena 
suggerita. 

L’istruzione Print Using permette anche di definire 
un formato di stampa comprendente il punto deci¬ 
male. Ad esempio, si può scrivere: 

PRINT USING “#####.####”;N 

Se si incolonnano in tal modo più numeri decimali, 
non verranno stampati con il margine a destra, ma il 
riferimento sarà dato proprio dal punto decimale. Se, 
in questo caso, un numero possiede più di quattro 
cifre decimali, verranno rappresentate solo le prime 
quattro, con un arrotondamento dell’ultima. 
123.456789 risulterà: 123.4568. Se invece è la parte 
intera del numero ad eccedere le posizioni specificate 
compariranno gli asterischi. Disponendo del solo TI 
BASIC, se si volessero incolonnare numeri decimali 
usando l’espressione prima suggerita, si otterrebbe la 
giusta posizione del margine destro ma, al variare 
delle cifre decimali, varierebbe la posizione del punto 
decimale. In questo caso, per simulare l’opzione 
Using, non è più sufficiente una sola istruzione TI 
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BASIC ma è necessario ricorrere ad una brevissima 
routine che è riportata nel listato 2. Si deve ricavare la 
parte intera con la funzione INT e stamparla come si 
è visto in precedenza; poi, se esiste, si scrive la parte 
decimale. Inoltre i numeri vanno trasformati in strin¬ 
ghe altrimenti tra la parte intera e quella decimale 
verranno lasciati degli spazi vuoti. 


100 

REM SIMULAZIONE 


110 

REM PRINT USING 


120 

REM a*#-**#*##*****#** 

130 

CALI. CLEAR 


140 

DATA 450,1620,135,24 

, 142,463,2670,85 

0,125,12 


150 

PRINT " SCRITTURA 

SIMULAZIONE" 

160 

PRINT ” NORMALE 

PRINT USING" 

170 

PRINT 


180 

CALL HCHAR(23,3,95,2 

8) 

190 

FDR J=1 TO 10 


200 

READ N 


210 

PRINT TAB(4);Nj 


220 

PRINT TAB(22-LEN(STR$(N)));N 

230 

NEXT J 


240 

PRINT i: : 


250 

PRINT TAB(7);"<BATTI 

UN TASTO" 

260 

CALL KEY(0,K,S) 


270 

IF S=0 THEN 260 


280 

CALL CLEAR 


290 

END 



Listato 1. L’istruzione 220 del listato simula il coman¬ 
do Print Using permettendo di allineare i numeri con il 
margine destro indipendentemente da quante sono le 
cifre che li compongono. 



Listato 2. Se i numeri contengono una parte decimale, 
l’istruzione precedente non garantisce più il giusto in- 
colonnamento. 

Si rende allora necessaria la breve routine presente 
nelle linee 230-270. In questo modo si simula l’istruzio¬ 
ne PRINT USING “###.##”:N e si ottiene l’inco- 
lonnamento con riferimento al punto decimale. 

In tutto sono necessarie cinque linee di program¬ 
ma. Ricordo al termine che l’istruzione Print Using si 
può usare anche con la stampante nel formato: 

PRINT #4,USING “####.##”:N 

ma di questo parlerò più diffusamente in occasione 
della presentazione di un programma. 
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SINCLAIR ZX SPECTRUM 

Eliminare blocchi di programma 
senza cancellare le linee 
singolarmente 

di Marcello Spero 

L’eliminazione di un certo numero di linee da un 
programma è sempre un’operazione noiosa. Quando 
poi le linee da cancellare sono molte la cosa può 
diventare veramente intollerabile. 

Le due routine che vediamo questa volta fanno pro¬ 
prio questa operazione, riducendo il nostro compito 
all’indicazione della prima e dell’ultima linea da eli¬ 
minare. La prima è tutta in BASIC, quindi di funzio¬ 
namento facilmente comprensibile ma un po’ più 
lenta della seconda, che invece sfrutta il linguaggio 
macchina, ed in particolare una routine ROM di cui è 
bene conoscere l’esistenza, potendo essere utile in 
molte situazioni. 

Procedendo con ordine, iniziamo con l’esaminare 
il funzionamento della prima routine, che trovate in 
figura 1. 

Partendo dall’indirizzo di inizio dell’area di pro¬ 
gramma (variabile di sistema PROG all’indirizzo 
23635) viene cercata una linea con il primo numero 
da noi specificato, e il suo indirizzo viene memorizza¬ 
to nella variabile start. Quindi viene cercata la linea 
indicata dal secondo numero, l’ultima da cancellare, 
e il suo indirizzo viene memorizzato nella variabile 
stop. 

A questo punto il programma calcola il numero di 
byte da eliminare, ne sottrae 4 e lo pone come lun¬ 
ghezza della prima linea da cancellare. In questa 
situazione cancellare la prima linea vorrà dire cancel¬ 
lare tutte le linee di programma incluse nella sua 
lunghezza fittizia. La sottrazione dei 4 byte è necessa¬ 
ria poiché la lunghezza di una linea non deve com¬ 
prendere i primi byte che ne indicano il numero e la 
lunghezza stessa, che sono appunto 4. 

Non resta ora che cancellare, come ci indica il pro¬ 
gramma, la prima linea, e il gioco è fatto. Un unico 
avvertimento riguarda i numeri di linea che forniamo 
al programma: questi devono sempre corrispondere 
a linee realmente esistenti, pena il non funzionamen¬ 
to della routine. 

Passiamo ora alla seconda routine, più rapida e 
flessibile, che si compone di un programma BASIC di 
inizializzazione, visibile in figura 2, e di un program¬ 
mino in linguaggio macchina che svolge material¬ 
mente tutti i calcoli e le ricerche. 

Come nel caso precedente vengono richiesti i nu¬ 
meri corrispondenti alla prima e ultima linea da eli¬ 


minare che, dopo alcuni controlli preliminari volti a 
proteggere il codice macchina da dati errati che por¬ 
terebbero a risultati disastrosi, sono provvisoriamen¬ 
te immagazzinati nel buffer di tastiera per essere 
utilizzati dal programma in linguaggio macchina. 
Viene usato il buffer di tastiera per rendere i dati 
indipendenti nella loro collocazione dalla posizione 
in memoria della routine l/m, che in questo modo 
diviene completamente rilocabile. L’ultima linea del 
programma provvede quindi a far partire il codice 
macchina. L’indirizzo della USR sarà quello a cui 
avrete posto la routine l/m. Colgo l’occasione per 
una precisazione riguardante l’uso di RANDOMIZE 
nel lancio dei programmi in linguaggio macchina: 
potrebbero essere usate allo stesso modo anche 
PRINT o LET a=, per esempio, ma sarebbero più 
lente nell’essere eseguite, ed inoltre avrebbero effetti 
collaterali quali la stampa di un numero o l’impegno 
di una variabile. Con RANDOMIZE, invece, l’unico 
effetto è una variazione del contenuto della variabile 
di sistema SEED, variazione peraltro senza conse¬ 
guenze. Chiusa la parentesi, torniamo al nostro pro¬ 
gramma. Sulla parte BASIC si può ancora dire che è 
stata numerata in modo da poter essere collocata in 
coda ad un programma ma qualsiasi posizione può 
andare bene, purché stiate attenti a non includerla 
nella cancellazione ... 

Passando ad esaminare il linguaggio macchina, 
vediamo come le operazioni svolte siano sostanzial¬ 
mente le stesse che venivano eseguite dalla routine 
precedente. Vengono trovati infatti gli indirizzi della 
prima e ultima linea, e quindi con una sottrazione si 
ottiene la lunghezza totale del blocco. Questa viene 
infine posta come lunghezza della prima linea, che 
trascinerà in tal modo le altre nella propria cancella¬ 
zione. La grossa differenza rispetto alla routine pre¬ 
cedente sta nel fatto che qui gli indirizzi della linea 
iniziale e di quella finale non vengono cercati passan¬ 
do in rassegna l’intero programma, dall’inizio fino 
alla linea voluta, ma in modo diretto. Questo è possi¬ 
bile facendo uso della routine LINE-ADDR, che si 
trova all’indirizzo esadecimale 196E, in ROM. Se noi 
chiamiamo LINE-ADDR passandole nel registro 
HL dello Z80 un numero di linea, questa ci restituirà 
l’indirizzo di inizio della linea precedente nel registro 
DE (parliamo sempre di registri dello Z80) e l’indiriz¬ 
zo di inizio della linea stessa in HL. Inoltre, se il 
numero di linea che le abbiamo passato non corri¬ 
sponde ad una linea BASIC esistente, in HL ci sarà 
l’indirizzo di inizio della prima linea esistente il cui 
numero sia maggiore di quello richiesto. 

L’operazione sarà comunque segnalata dal flag di 
zero dello Z80, che in questo caso sarà posto ad 1, 
essendo altrimenti a zero. 

Pur limitandosi le nostre esigenze al contenuto di 
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di 


Eliminare 

blocchi 

programma 


HL, cioè l’indirizzo della linea, tutta questa versatili¬ 
tà ci porta dei vantaggi. Infatti questa routine funzio¬ 
na anche se i numeri di linea che le passiamo non 
corrispondono a linee BASIC. 

Potremo avere due casi: non esiste il numero della 
prima linea, o non esiste il numero deirultima. Nella 
prima ipotesi l’unica conseguenza sarà il dover can¬ 
cellare, al termine del programma, non la linea il cui 
numero avevamo indicato, che non esiste, ma la pri¬ 
ma linea successiva. Nella seconda ipotesi, invece, 
qualche danno può essere prodotto: infatti la cancel¬ 
lazione proseguirà fino alla prima linea realmente 
esistente di numero successivo a quello che abbiamo 
fornito, e la cui cancellazione poteva essere o non 
essere voluta. 

La figura 3 riporta il disassemblato del l/m con 
qualche notizia più in dettaglio, mentre in figura 4 
trovate il codice pronto per l’uso. 

Come abbiamo detto è completamente rilocabile, 
quindi a voi la scelta della posizione in memoria; 
consiglio comunque di proteggerlo ponendolo oltre 
la RAMTOP. 



9000 REM *********************** 
* * 

* BLOCK DELETE * 

* * 
*********************** 


9010 LET X =PEEK 23635+2SE*PEEK £ 
3636 

9020 INPUT "prima linea da etimi 
n a r e " ; a 

9030 INPUT "u Itiroa linea da elim 
inare b 

904.0 LET y t =PEEK ( X +2) +256 *PEEK 
(X +3 5 


THEN LET s t a r t =x 

9060 IF PEEK X*2SS+PEEK (X+D=b 
I HEN LET StOp*x+yt+4. GO TD 9080 
9070 LET X =x +y t + 4 -. GO TO 9040 
9030 LET l =s Xop -Stari-4 
9090 POKE Start +2 . I-256 *INT (lx£ 
56) 

a 100 “ i_'KE s tari + D , INT t i /aSSJ 
9110 CL5 . PRIMT RT 10.0;"digita 
■\;a.;" seguito da enter" 


Figura 1. Il programma Block Delete. 


9000 rem *********************** 
* * 

* BLOCK DELETE L/M * 

* * 
*********************** 


9010 INPUT "prima linea da etimi 
na re 11 

3020 INPUT "ultima linea da elim 
inare ";12 

9030 IF ll>12 OR liti OR 12>9999 
THEN GO TO 9010 

9040 POKE 23296/ll-256*INT (11x2 

56) 

9060 POKE 23297,INT (11x256) 

9070 POKE 23296.12-2S6*INT (12X2 

56) 

9080 POKE 23299, INT (12X2S6) 

9090 RHMDOMIZE U3R 65001. REM in 
dirizzo di inizio della routine 
i n l xm 

9100 print rt 10 , 0 ;"digita ";il; 
" seguito da ENTER” 


Figura 2. La routine BASIC del programma Block 
Delete l/m. 


ld hi/ (23296) 
cali 6510 
ine hi 
ine hi 

ld hi, (22298) 

cali 6510 

ine hi 

ine hi 

ld e., (hi) 

ine hi 

ld d, (h l ) 

ine hi 

add h l ,de 

pop de 

push de 

and a 

SbC hl/de 

dee hi 

dee hi 


ex de , 
pop h i 
ld (hi) 
ine hi 
ld (h l ) 
re t 


h l 
/ e 
/d 


trova l'indiriz¬ 
zo del del primo 
tute della lun¬ 
ghezza della p ri 
ma linea e salva 

10 s t esso per i 
ultima riga, ma 
senza salvarlo. 

trova la tunghsz 
za dell'ultima 
linea, e quindi 
t'indir, del pri 
mo byte success. 

rscoperà e salva 

11 primo indir. 
calcola il n. di 
byte da elimin. 

inserisci il n. 
byte da elimin. 
nella lunghezza 
della prima 
linea da elimina 
r e . 


Figura 3. Disassemblato della routine l/m. 


42/ 0/ 91/205/110, 25/ 35, 35, 

229, 42, 2, 91,205/110/ 25, 35, 

35, 94, 35. 86, 35, 25.209,213, 

167,237, 82, 43, 43,235,225,115, 

35,114,201 


88 


Figura 4. Codice macchina della routine l/m. 





















i SEGRETI 
DEI PERSONAL 


COMMODORE C 64 


Gli “orologi” nel C 64 

di Alessandro Guida 

C 64 Time of thè Day/TOD 

Anche se nel manuale d’uso del C 64 non ne viene 
fatta parola, all’interno del computer sono disponibi¬ 
li ben due orologi con allarme. Questi sono fisica- 
mente alloggiati nei due CIA (Complex Interface 
Adapter) che gestiscono le operazioni di input/out¬ 
put del 64. 

Non bisogna, però, confondere questo orologio con 
la variazione TI$. Infatti, TI$ (che pure esiste sul 64), 
è semplicemente un contatore incrementato via soft¬ 
ware ad ogni interrupt. Per questo motivo è anche 
poco preciso, infatti, la maggior parte delle routine di 
I/O rallentano o bloccano del tutto la frequenza degli 
interrupt causando ritardi nel contatore TI$. 

Il TOD, invece, è incrementato dalla frequenza di 
rete, quindi molto più affidabile. 

In figura 1, sono riportati i registri del CIA. Poiché di 
questi integrati nel 64 ce ne sono due, i rispettivi 
registri saranno collocati in zone diverse della memo¬ 
ria. 

In particolare i registri del primo CIA partono dalla 
locazione $DC00 (56320) mentre quelli del secondo 
da $DD00 (56756). 

Poiché il funzionamento dei due TOD è assoluta- 
mente identico, di seguito non ci riferiremo in parti¬ 
colare agli indirizzi di un CIA o dell’altro ma al 
numero del registro. 

In pratica, poi, il numero del registro andrà sommato 
alle locazioni di partenza del CIA che si desidera 
utilizzare. 


I registri 

L’ora conservata in un CIA è organizzata alla 
maniera anglosassone. Ci sono, cioè, 12 ore divise in 
AM e PM. E presente anche una cifra per i decimi di 
secondo. 

L’orario è conservato nei primi quattro registri di 
figura 1. 

È interessante notare che pur essendo questi dei nor¬ 
mali registri a 16 bit, contengono i dati in forma BCD 
(Binary Coded Decimai). In questa maniera è estre¬ 
mamente facile la conversione dei numeri in carattere 
ASCII. 

Un esempio di numerazione binaria secondo il codice 
RCD è riportato in figura 2. 

Nel registro 8 vi sono i decimi di secondo, che occu- 


Contenuto bit registri 

Reg Nome 7 6 5 4 3 E 1 0 


8 

Decimi secondo 

0 

0 

0 

0 

08 

04 

OE 

01 

9 

Secondi 

0 

S4 

SE 

SI 

s 8 

s4 

s 2 

si 

fi 

Minuti 

0 

M4 

ME 

MI 

■8 

■4 

■2 

■ì 

B 

Ore 

0=AM 

1 -PM 

0 

0 

01 

08 

o4 

o2 

ol 

D 

Interrupt 

(ftl lame) 

X 

X 

X 

X 

X 

1=0N 

0=OF 

X 

X 

E 

Frequenza rete 
(Hz) 

0=60 

1=50 

X 

X 

X 

X 

X 

X 

X 

F 

Set orologio/ 
a 11 arme 

0=Or 

LAI 

X 

X 

X 

X 

X 

X 

X 


Figura 1. Tabella dei registri del CIA (6526) che ri¬ 
guardano il TOD (orologio). Le X indicano un contenu¬ 
to senza importanza. 


pano solo i primi 4 bit (una cifra da 0 a 9). 

Nel 9 ci sono i secondi e nel registro $A (10) vi sono i 
minuti, ambedue organizzati alla stessa maniera. I 
primi 4 bit sono le unità, gli altri quattro le decine. 
Naturalmente dei quattro bit più significativi ne sono 
utilizzati solo tre, giacché devono contenere al massi¬ 
mo il numero 6. 

Infine nel registro B vi è l’ora. I primi 4 bit sono le 
unità. Il quinto bit è la decina (ricordate che al massi¬ 
mo si arriva a 12), mentre l’ultimo bit contiene 0 se si 
è di mattina (AM) e 1 se di pomeriggio (PM). 
Queste locazioni sono le stesse sia per l’orario corren¬ 
te sia per l’ora di allarme. Per indicare al CIA se 
stiamo aggiornando uno o l’altro è necessario mette¬ 
re a 0 (per l’ora) o a 1 (per l’allarme) il bit 7 del 
registro F. 

Va, anche detto, che l’allarme è possibile solo scriver¬ 
lo ma non leggerlo. Per cui, anche se il bit 7 è a 1, se si 
va a leggere nei registri da 8 a B si avrà sempre l’ora 
del giorno. 

Inizialmente aggiorneremo l’ora per cui lo dovremo 
azzerare. 

Per il primo CIA, ad esempio, si avrebbe: 56320 + 
15 = 56335, quindi: 

POKE 56335, PEEK (56335) AND 127 

Prima di proseguire bisogna settare anche il bit 7 del 
registro E, che specifica la frequenza di rete. Uno 0, in 
questo bit, indica una frequenza di 60 Hz, mentre PI 
prepara il CIA a ricevere un segnale a 50 Hz. 

Fate attenzione perchè all’accensione del compu¬ 
ter questo bit è a zero (60 Hz) mentre in Italia la 
frequenza di rete è di 50 Hz. Si darà, quindi, anche il 
seguente comando: 

POKE 56334, PEEK(56334) OR 128 
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Gli “orologi” 
_nel C 64 


Per aggiornare i registri contenenti l’ora è necessario 
seguire un certo ordine di operazioni. Va aggiornato 
per primo il registro delle ore, poi quello dei minuti e 
quello dei secondi e, per ultimo, il registro dei decimi 
di secondo. Questo perchè il CIA nel momento in cui 
si scrive nel registro dell’ora blocca il conteggio in 
maniera che alcuni registri non vengano modificati 
accidentalmente dall’avanzare degli altri. L’orologio 
riparte, automaticamente, dopo la scrittura dell’ulti¬ 
mo registro (decimi sec.). 

La stessa cosa accade quando si va a leggere la 
locazione dell’ora. Naturalmente in questo caso non 
viene fermato il conteggio ma solo “congelato” il 
contenuto dei registri mentre l’orologio interno con¬ 
tinua ad avanzare. 

I registri tornano ad essere aggiornati, dopo la lettura 
dei decimi di secondo. 


L’allarme 

Come abbiamo già anticipato è anche possibile 
fissare l’orario di allarme. L’allarme va introdotto 
nella stessa maniera vista per l’ora corrente, naturai- 


leggete 

VIDEO 

GIOCHI 



10 R=0 POR 1*49152T049327 : REA.0J POKEI, J ' A*fì+J NEXTI 
20 IFR022193THENPRINT"ERRORE NEI DRTR" END 
30 PRI NT " maOROLGG 10 PER Ct-4S“ 

40 SVS49152 

100 DRTR234,£34,234,120,173,U2G,003,141,028,192 
105 DRTR169,130,141,020,003,1 73 ,021,003,141,029 
110 DRTR192,169,192,141,021,003,088,096,049,234 
115 BRTfi173,024,208,041,240,074,874,133,254,169 
120 DRTR0O0,133,253,160,000-173,011,220,072,041 
125 DRTR127,162,186,032,105,192,173,010,220,032 
130 DRTR105,192,173,009,228,162,174,032,105,192 
135 DRTR173,008,220,032,122,192,104,016,003,169 
140 DRTR144,044,169,129,032,126,192,169,141,145 
145 DRTR253,169,216,133,254,169,801,145,253,136 
150 DRTR016,251,108,028,192,072,032,118,192,184 
155 DRTR832,122,192,138,032,126,192,896,074,074 
160 BRTR074,074,041,015,889,176,145,253,208,096 
165 BRTR166,215,224,133,208,087,169,838,141,173 
170 DRTR192,208,025,224,134,208,007,169,102,141 
175 DRTR173,192,208,814,224,135,203,014,174,096 
180 DRTR192,232,138,041,815,141,096,192,169,000 
185 DRTR133,215,076,38,192,234 
280 REM AGOIORNAMENTO ORR 
210 pr i nt" rmanoci ornamentq qrrh";print 

215 P0KE56334, PEEK (. 56334>OR 128 : REM SELEZIONA CLOCK R 58HZ 
220 P0KE56335,PEEK<56335>RND127 : REM SELEZIONA ORR 
230 INPUT"RM 0 PM";R* 

240 R=128 IFRSC<R*>“65THENA=0 

250 I NPUT " ORR " ; R$ : IFLEN < R$ > >2THENPR I NT ** T’ : : OOTO250 

260 GOSUB500 IFN>18THENPRINT” .T ; :G0T0258 
270 P0KE56331,R+N : REM AGGIORNA ORR 

230 INPUT "MINUTI ".: A* : IFL£N<A*>>2THENPRINT".T ; GOTO280 
290 GOSUB500 : 1 FN>Q9THENPR I NT" H" : GOTO280 
300 P0KE56330,N : REM AGGIORNA MINUTI 

310 INPUT"SECONDI " ; fì* IFLEN<.R*»2THENPRINT"T 1 .; GOTO310 
320 OOSUB 500 : IFN>89THENPRINT" H” ; :00T0310 
338 P0KE56329,N : REM AGGIORNA SECONDI 

340 PRINT"!|PER FAR PARTIRE L'OROLOGIO” • PRINT'PREMI UN TASTO" 
350 GETA*: IF A*="“THEN350 

360 P0KE56328,0 : REM AGGIORNA DECIMI SEC. E START 
380 END 

500 IFLEH<A*>=1THENT=0:G0TO520 
510 T=VAL<LEFT*<Rf,1> > 

520 U-VAL<RIGHT*<A*,1>> 

538 N-16#T+U•RETURN 


Listato 1. Programma per avere sullo schermo l’orolo¬ 
gio interno del C 64. 


mente, dopo aver settato il bit 7 del registro F. Questo 
va riportato a zero quando si sarà terminata l’opera¬ 
zione. 

Fissata l’ora di allarme, il CIA la confronterà conti¬ 
nuamente con l’ora del giorno e quando saranno 
uguali attiverà un’interrupt. Quindi, per poter utiliz¬ 
zare l’allarme è necessario modificare la routine di 
interrupt originale. 

Poiché questo viene attivato, normalmente, 60 vol¬ 
te al secondo e, inoltre, ci possono essere anche altre 
sorgenti di interruzione, è importante che la nuova 
routine controlli la provenienza della richiesta di 
interrupt. Se a causare l’interruzione sarà stato l’al¬ 
larme proseguirà con le opportune operazioni altri¬ 
menti tornerà alla routine di gestione interrupt nor¬ 
male. 

Se l’interruzione è stata causata dall’allarme è facile 
da verificarsi perchè nel registro D il bit 2 sarà setta¬ 
to. Tale registro contiene tutte le possibili fonti di 
interrupt, interne al CIA, ma noi siamo interessati 
solo al bit che contiene lo stato dell’allarme. 

Il registro D è, in realtà, costituito da due registri: 
uno a sola lettura e l’altro a sola scrittura. Quello di 
cui si è parlato prima era quello di lettura. L’altro, 
invece, serve ad abilitare o disabilitare le varie sor¬ 
genti di interrupt. 

Di conseguenza, per attivare l’allarme, si dovrà 
digitare: 

POKE 56333,132 
mentre per disabilitarlo: 


POKE 56333,4 
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Deci mal e 

BCD 

Deci mal e 

BCD 

1 

00000001 

10 

00010000 

2 

00000010 

20 

00100000 

3 

00000011 

30 

00110000 

4 

00000100 

40 

01000000 

5 

00000101 

50 

01010000 

6 

00000110 

60 

01100000 

7 

00000111 

70 

01110000 

8 

00001000 

80 

10000000 

9 

00001001 

90 

10010000 



99 

10011001 


Figura 2. Esempio di numerazione binaria secondo il 
codice BCD. 


Tornando alla routine di gestione interrupt, in un 
esempio, quanto detto può essere rappresentato così: 


cooo 

cooo 

cooo 

C003 

C005 

C007 

C007 

COOA 

COOA 


LDA $DC0D 
AND &$04 
BNE SCOOA 

JMP SEA31 


NUOVA ROUTINE IRQ 


legge interrupt register 
seleziona bit Allarme 
se è settato salta alla 
routine ALLARME 
salta routine IRQ originale 


ROUTINE ALLARME 


11 programma 

Il listato 1 è una applicazione tipica. 11 programma 
si divide in due parti. La parte in linguaggio macchi¬ 
na si occupa di visualizzare l’ora, sullo schermo in 
alto a sinistra, ad ogni ciclo di interrupt. La parte in 
BASIC serve, invece, ad aggiornare l’orario all’ini¬ 
zio. Una volta fatto girare il programma BASIC si 
può cancellare con un NEW, l’orologio resta comun¬ 
que in memoria. 

Il tasto FI abilita l’apparizione dell’ora sullo scher¬ 
mo, mentre F3 la disabilita. Con F5 è possibile cam¬ 
biare il colore dell’orologio. 

Se durante l’uso si rendono necessari i tasti funzio¬ 
ne per altri usi, il tutto può essere disattivato premen¬ 
do contemporaneamente i tasti STOP e RESTORE. 
Per far riapparire l’orologio basterà dare il comando 
SYS 49152. 


Per non mandare in tilt il vostro 'cervello’ 

Rodnay Zaks 

PROIBITO! 

O come aver cura di un computer " * 


In quanti modi si può rovinare un computer, grande o 
personal che sia? L’autore di questo volume ne elenca 
molti: alcuni dovuti a sbadataggine, altri a troppa 
confidenza con il mezzo, altri ancora a scarsa 
conoscenza dei suoi meccanismi e della loro estrema 
vulnerabilità. C’è, anche, un’intera parte dedicata ai 
sabotaggi da calcolatore: furti, spionaggio 
industriale, distruzione delle informazioni... 

Insomma un libro curioso, ma prezioso, per 
vivere per anni, senza problemi, insieme al 
proprio amico 'cervello' elettronico. 

198 pagine. Lire 14.000 Codice 333 D 




k\ 


7 


GRUPPO 

EDITORIALI 

JACKSON 


Per ordinare il volume utilizzare 

l’apposito tagliando inserito in fondo alla rivista 
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Apple 


Cambio software per Apple anche con sistema ope¬ 
rativo CPM. Tommaso Tanto - Via Del Sole, 18 - 
92019 Sciacca (AG). 


Cambio-vendo programmi per Apple. Possiedo va¬ 
sta biblioteca di software. Rispondo a chiunque in¬ 
via lista o richieste. Telefonare ore serali. Franco 
Vittor - Via Grabizìo, 35 - 34170 Gorizia - Tel. 
0481781254. 


Per Apple 2 + cambio programmi su dischette o 
listati. Anche C64. Dispongo copie videogiochi 60 
BBL ER (Packman) defender, planetoids, space 
eggs. sabotage. Tasc, o vendo-cerco copie pro¬ 
grammi - copia. Stefano Malagodi - Comunale, 14 - 
44034 Copparo (FE) - Tel. 0532/860196. 


Vendo Apple writer Ile con manuale + manuale WPL 
a L. 100.000 + spese contrassegno. Gianluca Pom¬ 
pon! - Via Raffaello, 5 - 56020 Castel Del Bosco (PI) - 
Tel. 0571/467053. 


Vendo-cambio software per Apple II/Ile con ma¬ 
nuali (Apple Writer Ile, visicalc, giochi, etc.). Gianlu¬ 
ca Pomponi - Via Raffaello. 5 - 56020 Castel Del 
Bosco (PI) - Tel. 0571 /467053. 


Esperto programmatore C.N.R cambio programmi 
di ogni tipo per Apple, sono particolarmente interes¬ 
sato ai package grafici. Scrivere o telefonare a: Al¬ 
berto Pollastri - Via Di Pratale. 28/B - 56100 Pisa - 
Tel. 050-20584 


Vendo listali giochi Apple II o cambio con program¬ 
mi su cassetta o listati per il VIC-20, Giovanni Bella- 
macina - Via Mazzini, 31 - 20058 Villasanta (MI) - 
Tel. 039/302576. 


Cambio-vendo programmi per Apple II. Dispongo di 
oltre 500 programmi, tra cui gestionali ingegneria, 
utilità, giochi. Claudio Citarella - Via Parroco Fede¬ 
rico, 41 - 80045 Pompei (NA) - Tel. 081/8632946. 


Commodore 


Cerco per Commodore 64, software di qualsiasi ti¬ 
po. Inoltre vorrei contattare utenti CBM64 per Com¬ 
modore. Veneto Club, Paolo Bigon - Via S Marco, 
177/A - 35020 Padova - Tel. 049/629117. 


Costituito il primo Club Nazionale per utenti di Com¬ 
modore 64 biblioteca di oltre 100 programmi, per 
informazioni telefonare allo 095/933369 chiedere di 
Carmelo o allo 0522/30155 chiedere di Lucio. Com¬ 
modore 64 Exchange Club - C.so Italia, 60 - 95014 
Giarre (CT). 


Cerco listati programmi per CBM 64, tutte le possibili 
informazioni sul software e hardware del C 64, pos¬ 
sibilmente in italiano, pago bene, vendo alla scoper¬ 
ta dello ZX Spectrum L. 18.000 nuovo. Nicola Fran- 
chetti - P.zza Libertà, 5 - 35036 Montegrotto T. (PD) - 
Tel. 794783. 


Si vendono o si cambiano programmi per Commo¬ 
dore serie 3000-4000 per ricevere ampio elenco 
inviare L. 1000. Si producono anche programmi su 
commissione. Scrivere o telefonare ore pasti. Arol- 
do Bizzarri - Via Pantelleria, 19 - 91100 Trapani - 
Tel. 0923/20044. 


Affaroni, vendo computer VIC 20 e Commodore 64 
nuovi ancora imballati, rispettivamente a L. 280.000 
e L. 550.000, sono comprensivi di registratore. 1 
videogioco, manuale. A richiesta anche gli optional. 
Andrea Di Rienzo - Via Longarone, 10 - 20157 Mila¬ 
no - Tel. 02/3575415. 


Vendo software Commodore 64. programmi scienti¬ 
fici, business, didattici, giochi vari, dettagliata docu¬ 
mentazione a richiesta. Invio catalogo gratuitamen¬ 
te. Rispondo a tutti. Luciano Antoniucci - Via Gol- 
doni, 7 - 05100 Terni - Tel. 0744/421274 


Cerco possessori Commodore 64 possibilmente 
zona Monfalcone, Gorizia, per scambio software 
hardware idee desidero sapere se nella provincia di 
Gorizia ci sono Club di utenti di Commodore 64. 
Luca Laconi - Via Don P. Fanin, 26 - 34074 Monfal¬ 
cone (GO) - Tel. 0481 /40958. 


Vendo VIC 20 + interi, reg.. sup-exp, stamp. VC1515, 
cart. sargonchess, manuali orig. ingl. e ital. Guida 
EVM, cassetta giochi, graf. funzioni, con stampa, dis. 
M. ris al miglior offerente in blocco o separatamen¬ 
te. Paolo Berbellini - Via Roma, 18 - 63023 Fermo 
(AP) - Tel. 0734/32136 


Per VIC 20 e 64 vendo programmi solo in linguaggio 
macchina e alcuni super in Basic. Prezzi amichevo¬ 
lissimi. Enzo Piperno - Via Torre Dello Stinco, 45 - 
00132 Roma - Tel. 06/6160934. 


CBM 64. Sono un analista di una banca di interesse 
nazionale e mi occupo di titoli-borsa. Ho realizzato 
un gioco sulla borsa. Possono partecipare 2-8 gio¬ 
catori. Vendo-scambìo. Gianni Castellan - Via Can¬ 
telli, 5 - 43100 Parma - Tel. 32801. 


Cambio/vendo oltre 350 programmi per il Commo¬ 
dore 64 tutti in linguaggio macchina. Maurizio Caro¬ 
la - Via L Lilio, 109-00143 Roma - Tel. 06/5917363. 


Compro-cambio-vendo programmi per Commodo¬ 
re 64 di qualsiasi tipo. All'invio della lista (indicare la 
trattativa che vi è più congeniale); risponderò con la 
mia. Franco Bruno - Via Giorgio Bratti. 100 - 47023 
Cesena (FO) - Tel. 0547/23810. 


Commodore 64 programmi di vario genere vendo a 
L 3000 (sconto sui grandi quantitativi) accetto 
scambio lista su richiesta. Ferdinando Errichiello - 
Via Bracco, 59 - 00137 Roma - Tel. 06/8272747 ore 
pasti. 


Per CBM 64 vendo "Frogger-64" (su cassetta) 
"Grandmaster" (scacchi 9 livelli di difficoltà su di¬ 
sco) “Screen-Graphics-64" (24 comandi in più per 
gestire grafica ad alta risoluzione su disco). Stefano 
Vandelli - Via Parini, 5 - 41013 Castelfranco E. (MO) 
- Tel. 059/924259. 


Vendo fotocopie perfette di listati di programmi per il 
Commodore 64. Inviare L. 1000 per il catalogo a. 
Lauro Michelotti - Via Boboli, 1/A - 51017 Pescia 
(PT). 


Vendo-compro-cambio programmi per Commodo¬ 
re 64 di ogni genere inviare e richiedere lista. Clau¬ 
dio Baraldi - Via San Marone, 9/2 - 41100 Modena - 
Tel. 059/358649 


Vendo per CBM 64: Simon Basic. RTTY, Hesmon, 
Pacman, Scacchi, CrazyKong, e molti altri giochi e 
utility. Per CBM serie 3000 vendo TOOLKIT (ROM 
da 2 Kbyte e aggiunge 10 istruzioni al Basic). Massi¬ 
mo Cantelli - Via Corso, 40 - 40051 Altedo (BO) - Tel. 
051/871270. 


Vendo VIC 20 nella sua confezione originaria com¬ 
pleto + il manuale d'uso in italiano + registratore a 
nastro C2N VC1530 in più libro su VIC. il tutto ancora 
in garanzia usato pochissimo a L. 400.000. Telefo¬ 
nare dalle ore 14.30 alle 15,30 e chiedere di Gian¬ 
carlo oppure scrivere. Giancarlo Bighi - Via Morta- 
ra, 86 - 44100 Ferrara - Tel. 0532/29759. 


Vendo stampante Commodore 4022 per 
PET/CBM4032/8032oVIC20o64,perfetta, 1 mese 
di vita, prezzo davvero interessante. Telefonare ore 
serali. Roberto Gens - Via Ponte Romano, 90 - 
11027 St. Vincent (AO) - Tel. 0166/37782. 


Vendo-compro-cambio software per Commodore 
64 cerco inoltre utilizzatori di questo computer zona 
Parma e Provincia per scambio idee e programmi 
telefonare ore 19 - 19,30, Fabrizio Parenti - Via 
Prampolini, 5 - 43100 Parma - Tel 0521/72924. 


CBM 64 vendo programmi di utility giochi libri desi¬ 
dero inolte entrare in contatto con conoscitori lin¬ 
guaggio macchina per scambio informazioni sui si¬ 
stema operativo. Marcello Cesi - Via Magliana Nuo¬ 
va. 178 se B/22 - 00146 Roma - Tel 06/5266009. 


Vendo Cabinet espansione + registratore C2N per 
VIC 20 come nuovi L 150.000 non trattabili telefona¬ 
re ore pasti. Luigi Bertinelli - Via Pallera, 4 - 10027 
Moncalieri (TO) - tei. 011/6470696. 


Vendo Commodore 64 + registratore C2N + una 
cartuccia con gioco + la guida di riferimento per il 
programmatore + un altro libro + tanti programmi 
su cassetta a L. 500.000. Augusto Amato - Via Ro¬ 
dolfo Morandi, 3 - 00139 Roma - Tel 8185465. 


Cambio-vendo moltissimi giochi per VIC 20 (anche 
in linguaggio macchina). A prezzi clamorosi HI! 
Amedeo De Franco - Via Mazzini, 277 - 55049 Via¬ 
reggio (LU) - Tel. 0584/32134. 


Per far funzionare il vostro nuovo VIC 20 avete biso¬ 
gno di programmi. Ne ho di eccezionali. Scrivetemi 
e vi manderò l'elenco. Andrea Bartolini - Vie A. 
Volta. 106 - 50131 Firenze - Tel. 575224. 


Cerchiamo possessori Commodore 64 per organiz¬ 
zare club zona Napoli. Inoltre vendiamo, compria¬ 
mo, scambiamo software su cassetta o disco. Invia¬ 
re o richiedere lista dettagliata. Corrispondere con: 
Gennaro Di Giaimo - P.zza Tanucci, 2 - 80046 San 
Giorgio a Cremano (NA) - Tel. 081/489639. 


Desidero contattare possessori Commodore 64 per 
scambio programmi e notizie utili. Esiste già qual¬ 
che "Commodore 64 Club?". Elio Antonucci - Via 
Faenza, 11 - 40139 Bologna 


Vendo-cambio programmi per VIC 20 su cassetta 
richiedere elenco inviando L. 400 in francobolli o 
propria lista. Renzo Radollovich - Via Marco Polo - 
34074 Monfalcone (GO) - Tel. 0481/42192. 


Eccezionale! Vendo programmi VIC 20, software di¬ 
lettanti, commerciale, scientifico, tra gli altri: legge di 
Ohm, anagrammi, test ed altri per avere gratis la 
lista, scrivere o telefonare a: Vincenzo Musicò - Via 
Paolo Blandino, 12 - 98100 Messina - Tel. 
090/2938626. 
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Cerco qualcuno che mi regali programmi per VIC 
20. Spedire in abbondanza a Barozzi Massimo - Via 
Bettini, 50 - Rovereto (TN) - Tel. 35215, Grazie. 


Vendo-cambio software per Commodore 64 - PET 
2001 - 3032 e 8032 - utility e anche giochi spedisco 
lista a chi invia busta affrancata oppure telefonare 
nelle ore serali dopo le 21. Francesco Venterelli - 
Via Repubblica, 193 - 41059 Zocca (MO) - Tel. 
059/987909. 


Scambio-vendo programmi VIC 20 in linguaggio 
macchina ed cartridge su nastro. Vendo Sargon 
chess ed Road Race a L. 20000 l'uno. Cerco inoltre 
sistemi per duplicare i prog. protetti. Scrivere a Luca 
Mansutti - Via M. Grappa, 1 - 33100 Udine. 


Invio cassetta con più di 20 giochi per VIC 20 o 64, 
anche in L.M., a coloro che mi inviano la loro, con 10 
programmi non copiati da riviste! Annuncio sempre 
valido. Assicuro serietà e risposta! Carlo Dalle Lu¬ 
che - Via Rovigo, 18/1 - 39100 Bolzano. 


Vendo calc-result advanced (in italiano) originale. 
Potente Spread-Sheet (tipo Sicalc). Lire 200.000 
(prezzo norm. L. 400.000) per Commodore 64 all'ac¬ 
quirente regalo Simons Basic, Alessandro Fogar - 
Via Venezia, 26 - 34073 Grado - Tel. 0481 /76S655. 


Vendo VIC 20 + 3K super Expander + 8K + C2N 
datasene unit + manager e -(-joystick Commodore + 
6 programmi in LM (fra i quali Skyhawk e Shadofax) 
+ alla scoperta del VIC 20 al miglior offerente. Tele¬ 
fonare ore pasti. Alberto Gaffuri - V ie A. Doria, 48/A 
- 20124 Milano - Tel. 02/6704057. 


Vendo per VIC 20 programmi di utilità e video ga- 
mes, 30 programmi su cassetta in blocco L. 29.000. 
Armando Mazza - Via Settembrini, 96 - 70053 Cano- 
sa (BA) - Tel. 0883/64050. 


Vendo VIC 20 come nuovo con espansione 8K mo- 
therboard due cartucce e vastissimo software tra cui 
Jelly Monsters istruzioni in italiano a L. 450.000trat¬ 
tabili (valore 650.000). Alberto Scotti - Via Frassinet- 
ti. 7 - 20148 Milano - Tel. 02/4033929. 


Cambio software per VIC 64 preferibilmente disco. 
Inviare listati o telefonare. Fernando Forner - Via 
Valperga Caluso, 21 - 10225 Torino - Tel 
011/6566538. 


Vendo per CBM 64 Simon' BASIC su nastro aggiun¬ 
ge 114 comandi al tuo computer completo di istru¬ 
zioni in italiano e di un programma dimostrativo. 
Telefonare ore pasti (chiedere di Carlo). Carlo Fer¬ 
rari - Via G. Martinelli - 35044 Montagnana (PD) - 
Tel. 0429/82469. 


Vendo per PET CBM oltre 600 programmi, giochi, 
utilità, IVA. fatture, mailinglist, tutti su nastro chiede¬ 
re elenco inviando L. 1000 per la risposta. Sandro 
Biondi - Via Canova. 14/1 - 07026 Olbia - Tel. 
0789/50938. 


Vendo-scambio programmi per Commodore 64, 
Basic 4.0, Pisk copy e giochi vari. Scrivere o telefo¬ 
nare a: Max Maneschi - Via G. Bonanno. 67 - 90143 
Palermo - Tel. 091/264184. 


Compro per Commodore 64 "Guida al C 64" in ita¬ 
liano. programmi, giochi (cassette), listati. Spedire 
elenco con prezzo e specifica. Giancarlo Testi - Via 
F.P Da Cherso. 4 - 00143 Roma. 


Vendo VIC 20 + registratore + espansione 8K + 30 
giochi su cassetta + 2 cartridge + guida al VIC 20 + 
cavetti e manuale. Tutto funzionante (4 mesi di vita) a 
L. 500.000 trattabili. Walter Bianchini - Via Dei Cicla¬ 
mini, 11 - 20147 Milano - Tel. 4151007. 


64isti scambiano programmi di ogni genere su cas¬ 
setta o listato. Disponibili interessanti games. Inviare 
lista programmi a: Walter Giacosa - Via Barletta. 117 
-10136 Torino - Tel. 011/324978. 


Cerco software per il VIC 20 sia in cassette che in 
listati. Spedirò altrettanti programmi a tutti coloro 
che me li invieranno. Gian Piero Gavi - Via Terre 
Bianche. 8 - 18100 Imperia - Tel 0183/63981. 


Vendo-scambio programmi per Commodore 64 
molti in L.M. originali americani chiedere lista alle¬ 
gando L. 300 in francobolli o telefonare alla sera. 
Nicola Cattafesta - Via Roselli, 18 - 46047 Porto 
Mantovano (MN) - Tel. 0376/398072. 


Commodore 64: Cerco software di termotecnica, 
impianti riscaldamento/condizionamento, ventila¬ 
zione, energia solare, reti idriche. Cerco inoltre pro¬ 
gramma o circuito per tradurre CW e RTTV. Dino 
Fornaciari - Villaggio Dante, 30 - 52100 Arezzo - Tel. 
0575/351451 (ore pasti). 


Vendo-scambio programmi per Commodore 64 di¬ 
sponibili: Tool 64, Simon's, Basic (su cassetta) Frog- 
ger, Crazy kong, Calcio, Scramble, Rox 64 e molti 
altri, richiedere lista allegando L. 300 per spese po¬ 
stali a: Carmelo Cutuli - C.so Italia, 60 - 95014 Giarre 
(CT). 


Cerco ad Arezzo utenti Commodore 64 per scambio 
esperienze. Cerco inoltre softare di termotecnica 
per Commodore 64 o Sharp PC 1211. Dino Forna¬ 
ciari - Villaggio Dante, 30 - 52100 Arezzo - Tel. 
0575/351451. 


Vendo per VIC 20 molti programmi su cassetta, gio¬ 
chi utility e altro anche in L.M. espanso a L. 600 l'uno. 
Richiedere liste gratuite. Sono disposto anche per 
cambi. Antonio Liuni - Parco dei Principi, 50 - 70010 
Casamassima (BA) - Tel. 080/671708. 


Vendo C 64 Simons'Basic L. 50000, Calcio L 25000, 
Pacman L. 15000, Skirace L. 15000, Pool Biliard L. 
15000. Fort Apocalips L. 20000, Shanus L. 20000, 
Scramble L. 20000, Gridder L. 15000, Motormania L. 
15000, Scacchi L. 40000, Frogger L. 20000, conti 
correnti L. 30000. Giacom Natali - Via S. D'Acquisto, 
19 - 62010 Petriolo (MC) - Tel. 55201. 


Se possiedi un VIC 20 non puoi non far parte dell'e¬ 
den software club! Scrivici, riceverai dettagliate 
spiegazioni ed un interessante bollettino omaggio. 
Per informazioni: Rinaldo Denti - Via Bellane. 4 - 
10025 Pino Torinese (TO). 


Per i vecchi e nuovi possessori del prestigioso VIC 
20 e 64 vendo in cassetta di alta qualità 6 videogio¬ 
chi originali Commodore inglesi e italiani poseggo 
vasta gamma di giochi 20.000 per cassetta. Diego 
Gelsomino - Via Cerrignano, 2 - 20142 Milano - Tel. 
575444. 


Vendo-compro-cambio programmi per CBM 64 sia 
su nastro che su disco. Scrivete a: Luigi Beviglia - 
Casella Postale 41 - 21052 Busto Arsizio (VA). 


Vendo-cambio giochi e programmi su cassetta per 
Commodore 64 solo residenti in Torino. Telefonare 
ore pomeridiane 14-17 esclusi giorni festivi a Clau¬ 
dio. Claudio Genova - Via S. Ambrogio. 9 - 10139 
Torino - Tel. 711809. 


È nato il nuovo computer club Commodore ogni 
livello a chi interessa compro-vendo-scambio 
esperienza curiosità tecnica o voglia apportare 
esperienze e dialogo scrivere a: Spartaco Della 
Spora - Via P. Savi. 218 - 55049 Viareggio 


Cerco possessori Commodore 64 per scambio di 
programmi. Cerco manuali e qualsiasi altro materia¬ 
le riguardante questo computer e il suo modo di 
operare. Posseggo anche diversi giochi interessan¬ 
ti. Gilberto Frioli - Via G. Mazzini. 32 - 60035 Jesi 
(AN) - Tel. 0731/541792. 


Cerco possessori di Commodore CBM 64 per 
scambio programmi e idee richiedete la lista e/o 
inviate la vostra. Rispondo a tutti. Ste^-o Belluzzi - 
Via Giacomo Matteotti, 179 - 46025 Poggio Rusco 
(MN). 


Vendo espansione di memoria 8K per VIC 20 a L. 
50000 Gioco scacchi Sargon II a L. 30000. Telefo¬ 
nare ore 14.00-14.30, o scrivere. Lorenzo Longagna 
- Via Piave. 20-7 - 17100 Savona - Tel. 019/25322 


Per Commodore 64 vendo più di 500 programmi in 
LM ED Utility. Amodio Tortora - Via Muratori, 44 - 
57100 Livorno - Tel. 500422. 


Vendo per VIC 20 base e Exp 8K, splendidi giochi. 
Tipo "Arcade" su nastro. Chiedere elenco prezzi 
gratuito. Lailes Lorenzale - Via Marzabotto, 14 - 
20094 Corsico (MI) - Tel. 4583226. 


Per CBM 64 vendo-cambio vasta gamma giochi ed 
utilityes. Richiedere ed inviare liste Disponibili sia 
su cassetta che su disco. Telefonare ore serali a: 
Paolo Raimondo - C.so Vittorio Emanuele, 71 - 
10128 Torino - Tel. 011/545625 


Vendo 20 programmi per TI99/4A dispongo dì Ham- 
murabi. Peg Jump, Poker, Othello, Market simula- 
tion. ecc. Il tutto a sole L. 25000. Vendita contrasse¬ 
gno richiedere elenco dettagliato a: Paolo Rosi - 
C.so Italia, 34 - 41058 Vignola (MO). 


Amici vichinghi vendo programmi a prezzi eccezio¬ 
nali. siete principianti? Mandatemi il vostro indirizzo 
vi spedirò una cassetta con 30 giochi divertenti in 
contrassegno a L. 15.000 SCRIVETEMI!!! Gianluca 
Burattelli - Via Di Vittorio. 2 - 58022 Follonica (GR) - 
Tel. 40903. 


Vendo per VIC 20 i seguenti giochi su cassetta: 
Medioevo, Blitz. Sci, Invaders, Follet, Amok, Frog. 
Vic-rescue, Bowling, (quasi tutti per Joystick) tuttoa 

L. 20.000. Telefonare ore pasti. Alberto Artioli - Via 

M. Marzabotto - 0425 S.M. Maddalena (RO) - Tel. 
0425/757672. 


Cambio-vendo programmi per CBM 64 The Last 
one - PET Speed - Hesmomd alta risoluzione ma¬ 
gazzino Condominio Word Vari - PET Emulator Si¬ 
mon's Basic, Bilancio familiare e tanti fantastici gio¬ 
chi originali. Augusto Bernardini - Via Valle Verde, 5 
- 05100 Terni - Tel. 56870/47148. 


Per CBM 64 compro qualunque tipo di programmi. 
L’annuncio è valido sempre (anche per acquisto 
libri). Inviate le vostre liste a: Leonardo Lombardi - 
Via Largo A. Banfi. 4 - 50018 Scandicci (FI) - Tel. 
256640. 
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Vendo-cambio software su cassetta per Commodo¬ 
re 64: Utility. Videogames, ecc. Stefano Lomurno - 
Via Giambellino. 10 - 20146 Milano - Tel. 4235248. 


Eccezionale offerta CBM 64 vendo programmi co¬ 
me "Simon's. Screen Graphics, Data Base "egiochi: 
Atomo, Alto Medioevo. Calcio. Scacchi. Frogger, 
Atlantic City. Tutto con testi esplicativi. Luca Montal- 
bano - Via Malagrida. 14 - 65100 Pescara - Tel. 
085/34196. 


Cambio-vendo programmi per Commodore serie 
3000, 4000 per ricevere ampio elenco inviare L. 
2000. Si producono anche programmi su commis¬ 
sione scrivere o telefonare ore pasti o dopo le 21.00. 
Araldo Bizzarri - Via Pantelleria. 19 - 91100 Trapani 
- Tel. 0923/20044. 


Compro-cambio-vendo programmi per Commodo¬ 
re 64. di qualsiasi tipo. All'invio della lista (indicare la 
trattativa che vi è più congeniale), risponderà con la 
mia. Franco Bruno - Via Giorgio Bratti, 100 - 47023 
Cesena (FO) - Tel. 0547/23810. 


Vendo software per CBM 64. soprattutto giochi, se 
siete interessati richiedete la lista dei programmi a: 
John Ceresi - Via Mazzini - 18016 S. Bartolomeo 
Mare (IM). 


Per VIC 20 vendo-scambio software su cassetta 
dispongo di circa 100 programmi di cui alcuni fanta¬ 
stici in LM. Es. Gridrunner, Abductor, Alien Blitz, 
Blitz a prezzi stracciati. Mandatemi le liste vostre 
o/e chiedete la mia gratis. Leonardo Buzzano - V ie 
Cairoli, 111 / B - 31100 Treviso - Tel. 0422/260808. 


Vendo VIC 20 + registratore C2N + espansione 8KB 
+ software 40 colonne + altri programmi e cavetti L. 
250.000 + postali. Alberto Del Bianco - Via Trasime- 
no, 7 - 52100 Arezzo - Tel. 300692. 


Vendo computer Commodore CBM 4016,16 K, mo¬ 
nitor 11 " fosfori verdi incluso, + registratore C2N + 
manuale Basic 4.0 + manuale Jackson. Il tutto a L. 
650.000. Telefonare dopo le ore 20.00 Sergio Gian- 
nesi - Via Ovada, 19 - 20142 Milano - Tel. 
02/810868. 


Vendo VIC 20 + cavi e trasformatore + 2 cartucce 
(scacchi. Hesmon monitor in linguaggio macchina) 
+ registratore C2N TJoystick + cassetta programmi 
+ manuale + 1 libro L. 400.000. Solo zona Roma. 
Davide Petrarca - Via Epicarmo. 21 /23 -00125 AxA 
Roma - Tel. 06/6062238. 


Vendo o cambio programmi per VIC 20. cerco inoltre 
programmi in linguaggio macchina. 

Leonardo Pecchi - Via SS Per Correggio, 22-41012 
Carpi (MO) - Tel. 059/664219. 


Cambio listati di programmi per Commodore 64: fra i 
tanti giochi possiedo listato in linguaggio macchina 
di un Toolkit. Rispondo a tutti. Giulio Frigo - Via 
Baiai. 78/C - 07046 Porto Torres (SS). 


Commodore 64 vendiamo. Sviluppiamo programmi 
disponibile vasta biblioteca di programmi molti con 
istruzioni in italiano listino a richiesta allegare fran¬ 
cobolli per la risposta. Marco De Nittis - Via Varese, 
22 - 71016 S. Severa (FG). 


Cerco possessori di Commodore 64 per scambio 
idee e programmi sono interessato tra l'altro al Si¬ 
mon's Basic su cassetta che scambierei con altri 
programmi o acquisterei se a prezzo modico. Invia¬ 
re liste. Paolo Di Mauro - Via Bertieri, 1 - 20146 
Milano - Tel. 471803. 


Compro-vendo programmi di ogni tipo per Commo¬ 
dore CBM 64. Scrivere a Paolo Bigon - Via S. Marco. 
177/A - 35020 Padova - Tel. 049/629117 (ore 
21 . 00 ). 


Vendo per CBM 64 software giochi di vario tipo 
come: Frogger. Pac-Man, su cassetta: per informa¬ 
zioni scrivete e riceverete una lista con i prezzi 
oppure telefonate. Preferisco contattare in zona. 
Alessandro Palma - Via A. Longo. 50 - 80127 Napoli 
- Tel. 081 /656305. 


Vendo bellissimi programmi di giochi su cassetta 
per VIC 20 inviare 400 lire in francobolli per la lista e i 
prezzi regalo inoltre ai primi 5 - programmi vari 
scrivetemi. Gerardo Ventura - Via Regina Elena, 82 - 
65100 Pescara. 


Vendo bellissimo programma di simulazione spa¬ 
ziale per CBM 64 Potrete esplorare una parte di 
galassia alla ricerca di stelle instabili, 22K chiedere 
informazioni con francobollo 400 lire a: Stefano Zat- 
tini - Via Sforza. 33 - 47100 Forlì - Tel. 26271. 


Vendo VIC 20 in perfette condizioni + superxpander 
+ alimentatore + modulatore + numerosi program¬ 
mi in Basic + Libro VIC revelead + videogame alien 
+ registratore e 1 game a L. 500.000. Telefonare ore 
pasti (12-14) o (19-21). Lorenzo Battaglioni - Via 
Zanaboni. 87 - 44038 Pontelagoscuro (FE) - Tel. 
0532/461717. 


Vendo corso Basic prima parte per VIC 64 intera¬ 
mente in Italiano comprendente 2 Cassette e 1 ma¬ 
nuale a L. 30.000 (metà del prezzo di vendita) tratto 
solo con Bari disposto a dimostrazioni. Nicola Lavo- 
pa - Via T. Cardarelli, 22 - 70125 Bari - Tel. 472842. 


Cerco-scambio programmi in linguaggio macchina 
per VIC 20 e CBM 64 richiedere la lista. Cerco vi¬ 
chinghi nelle tre Venezie e oltre per apertura di Club 
VIC. Roberto Oselladore - Passo San Boldo, 35/2 - 
30030 Favaro Veneto (VE) - Tel. 041/631106. 


Vendo-scambio cartucce (visible solar sistem) per 
VIC 20. Nuovissima (1 mese) ancora nell'incarto ori¬ 
ginale a L. 30.000 trattabili. Compro registratore 
Commodore a basso prezzo. Enzo Capia - Via Almi- 
telli, 1 - 80011 Acerra (NA) - Tel. 081/885... 


Per CBM 64 vendo-scambio interessanti Utility e 
giochi disco o cassetta per informazioni: Ernesto 
Perini - Via Petrella. 15 - 21052 Busto Arsizio(VA) - 
Tel. 0331/635025. 


Per VIC 20 ho una nastroteca di circa 100 program¬ 
mi (videogiochi, didattica, gestionali, giochi dì so¬ 
cietà, grafici, per la casa, ecc.) che vendo a prezzi da 
sballo. Ricco e dettagliato indice inviando L. 1000, 
anche in francobolli a: Giovanni Vermiglio - Vie 
Friuli, 27 - 10015 Ivrea (TO) - Tel. 0125/252170. 


Compro-vendo-cambio programmi per CBM 64. 
soprattutto su disco. Emilio Di Lello - Via Giotto. 3 - 
64026 Roseto D'Abruzzo (TE) - Tel. 085/8992146. 


Vendo-cambio-acquisto software per CBM 64. In¬ 
viate vostra lista rispondo a tutti a stretto giro di 
posta. Ho circa 300 (trecento) programmi. Annuncio 
sempre valido. Giancarlo Giuliani - P.za Sacro Cuo¬ 
re, 26 - 65100 Pescara - Tel. 085/26593. 


Vendo favolosi giochi di tutti i generi: sportivi, Arca¬ 
de games. classici, di avventura, spazio, e di azione. 
Prezzo variabile dalle L. 5.000 lino a 15.000. Solo per 
Commodore 64 Luca Vecchi - Via Valeriani, 39/2 - 
40134 Bologna - Tel 051/412652. 


CBM 64 scambio-vendo-compro programmi di va¬ 
rio genere. Dispongo di ottimi giochi, ma anche di 
stupendi programmi di utilità. Richiedere la lista in¬ 
viando la vostra. Massima serietà. Vincenzo Sena - 
Via Ferrovia. 26 - 80033 Cicciano (NA). 


Vendo cartucce (cartridge) per VIC 20 "Alien”, 
"Avenger", “Radar Rat Race" in perfetto stato, usate 
pochissimo. 1 mese di vita, funzionanti a L. 
35.000/40.000. Vero affare. Luca Maccari - Via Pi- 
smonte. 5 - 20139 Milano - Tel. 02/5391991 


Vendo per VIC 20 i migliori giochi sul mercato. Stu¬ 
pendi LM ed anche ottimi Basic ed inediti americani. 
Tutto a prezzi adeguati. Scrivete per ricevere il forni¬ 
to elenco gratuito. Federico Guerrieri - Via Ugo Fo¬ 
scolo, 14 - 50124 Firenze - Tel. 055/700635. 


Se possiedi un VIC 20 non puoi non far parte dell'e¬ 
den software club, il club delle idee, delle amicizie, 
degli scambi, scrivici. Riceverai un interessante bol¬ 
lettino omaggio. Rinaldo Denti - Via Bellane, 4 - 
10025 Pino Torinese (TO). 


Commodore 64 vendo programmi, cerco manuali di 
istruzione sia sul CBM 64 che di programmi acqui¬ 
sto in contanti o software di adeguato valore. Grassi 
Giancarlo - Via Vasto, 81 - 46044 Goito (MN) - Tel. 
0376/607239 


Vendo-scambio i seguenti programmi per C 64: Ba¬ 
sic 4.0, Pet Speed 80 colonne, Mon Easy Script, 
Screen Graphics, Simon's Basic, Disk Copy, Disk 
Backup. Videogames, Totosistemi e altri, Telefonare 
o scrivere. Saverio Pensabene - Lungomare C. Co¬ 
lombo. 3544 - 90149 Addaura (PA) - Tel. 
091/451425. 


Sinclair 


Attenzione! Per Spectrum 16/48 K vendo bellissimi 
programmi registrati perfettamente e collaudati sia 
giochi (The Hobbit, Scacchi) che utilità, (Vufile. Vu- 
calc). Telefonare ore 15 o scrivere. Omaggi su 
quant. Marco Moretti - P.zza Dei Giudici, 2 - 50122 
Firenze - Tel. 055/296115. 


Vendo ZX81 compreso di cavetti, libro istruzioni + 
espan. memoria 16 K RAM + libro 66 programmi 
usato pochissimo cedo tutto a L. 200.000. France¬ 
sco Castellan - C.so Vittorio Emanuele, 188 - 67100 
L'Aquila - Tel. 21223. 


Cambio-compro-vendo programmi ZX Spectrum 
inviate le vostre liste oppure chiedete la mia risposta 
assicurata (oltre 300 programmi) originali inglesi. 
Bruno Mautone - Via Trentino, 74 - 80145 Napoli - 
Tel. 081/7540707. 


Se vuoi divertirli col tuo ZX Spectrum 16 o 48 K hai 
trovato l'occasione giusta non è uno dei soliti an¬ 
nunci perchè questa è veramente un'occasione 300 
programmi tutti originali su cassette di marca. Enri¬ 
co Tadini - Via Mameli. 29 - 16035 Rapallo (GE) - 
Tel. 0185/60935 (sera). 


Vendo ZX-81 16 K RAM alimentatore. Mollissimi 
software anche inediti L. 200.000. Alessandro Giolit- 
ti - Via G. Fabroni - 50134 Firenze - Tel. 473810 
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Eccezionale vendo ZX-81 ricarrozzato ed estetica- 
mente imbattibile montato in contenitore metallico 
nero con tastiera professionale, espansione 64K 
RAM + ZX Printer a sole L. 450.000 pensateci!!! 
Gianni Arcieri - Via Nazionale. 168 - 64020 Ripattoni 
(TE) - Tel. 0861/610493. 


Vendo ZX Spectrum con espansione a 48 K + inter¬ 
faccia seriale RS232 Centronics + manuale a L 
500.000. In omaggio software. Andrea Tomai - Via 
Fermi. 23 - 20094 Corsico (MI) - Tel. 4401277. 


ZX Spectrum vendo-cambio oltre 350 programmi 
originali inglesi in continuo aggiornamento scrivere 
o telefonare per catalogo. Akis Fletsios - Via Ferrie¬ 
ra, 11 - 40132 Bologna - Tel. 051/341952. 


Cambio-vendo programmi per ZX Spectrum 16/48 
Kb, ho decine di programmi di ogni tipo. Stefano 
Sansavini - Via De Macchi. 18 - 50100 Firenze - Tel. 
652321 


Vendo programmi per Spectrum in listati o su cas¬ 
setta (L. 2000 e 8000 rispettivamente). Dispongo an¬ 
che di listati per Commodore. Atari, Apple ed altri a L. 
3000. Programmi anche su richiesta. Daniele Anto¬ 
nio lavarone - Via Torino, 9 - 81022 Casagiove(CE) - 
Tel. 0823/468607. 


Cerco possessori ZX Spectrum per scambio pro¬ 
grammi. Inviate la vostra lista ed io invierò a voi la 
mia. Risposta assicurata. Alfredo Trifiletti - Via Fiu¬ 
me, 20/A - 71100 Foggia - Tel. 0881/75385. 


Richiedere catalogo giochi Spectrum inviando L. 
500 per spese postali. Indicare chiaramente mitten¬ 
te. Prezzi eccezionali. Francesco Imbesi - Via Oe- 
ledda, 9 - 17025 Loano (SV). 


Vendo ZX-81 con alimentatore + cavetti + espan¬ 
sione 32 K RAM + libro programmi + manuale + 3 
cassette giochi applicativi. Il tutto a L. 250.000 tele¬ 
fonare ore 13/14. Davide Longobardi - Via Giovan- 
nida Milano, 7 - Milano - Tel. 7388675. 


Vendo fantastici programmi per ZX Spectrum origi¬ 
nali a L. 4000. Scrivere o telefonare per ricevere 
listino. Risposta assicurata. Guido Montacchini - 
Via Tiepolo, 7 - 10126 Torino - Tel. 677670. 


Straordinario Sinclair su nastro! Spectrum: 
20+20+20 progr. (3 nastri diversi). ZX-81: 50+50 
progr. 1K, 35+35 prog. 16 K. 20 maxiprog. 16 K. Ogni 
nastro L. 7000 solo se soddisfatti dopo averli provati 
per 10 giorni richiedili a: Vincenza Avena - Via Gari¬ 
baldi - 04016 Sabaudia (LT). 


Vendo ZX-81 32 K RAM, tastiera premente con re- 
peat e beep. bus, cavi e alimentatore, 2 manuali in 
italiano, documentazione hardware e software, pro¬ 
grammi in LM registrati. Tutto L. 240.000 irriducibili. 
Mauro Masci - Via M. Odescalchi, 2-00152 Roma - 
Tel. 06/530951. 


Vendo causa passaggio sistema superiore, compu¬ 
ter ZX-81 come nuovo (maggio 83) + cavetti + 16 
KRAM + manuale + software il tutto perfettamente 
funzionante e imballo originali a L. 300.000. Scrivi 
subito a: Maurizio Della Sala - Casella Postale 
84016 - Pagani (SA). 


Scambio programmi Spectrum 48 K tratto solo con 
privati in Milano. Telefonare ore serali. Guerrino 
Neroni - Via Malakoff, 20 - 20094 Corsico (MI) - Tel. 
02/4471898 


Vendo programmi ZX Spectrum, Spiai, Missile De- 
fence, Fruit Machine, Jungle Trouble. Cookie e molti 
altri. Catalogo a richiesta L. 1000. Stefano Nocilli - 
Via Truscolana. 224 - 00181 Roma. 


Vendo programmi per Spectrum in Ling. macchina 
su cassetta 7 giochi e 4 utility 16-48 K ottima grafica. 
Eccezionale prezzo L. 8000. Telefonare dalle 20-21 
ottima serietà istruzioni incluse. Giacomo Caviglie¬ 
ne - C.so Ferrari, 181 /3 -17011 Albisola Capo (SV) - 
Tel. 019/42966. 


Sinclair Spectrum disponendo di un notevole archi¬ 
vio software vendo a L. 10.000 cassette con 5 giochi 
a scelta. Ore pasti. Pivano Parbuono - Via A. di 
Cambio. 4 - 37138 Verona - Tel. 045/568649. 


Compro listati o cassette per ZX Spectrum 48 K e TI 
99/4A extended riguardanti il programma di com- 
pusteria e di ragioneria per il triennio dell'istituto 
tecnico commerciale. Angelo Bottini - Via Dante 
31/5 - 18039 Ventlmiglia - Tel. 357902 


Vendo-scambio programmi di giochi ed utilità per 
Spectrum 16/ K e 48/ K. Vasto assortimento e garan¬ 
zia di massima soddisfazione. Richiedi il catalogo 
inviando il francobollo per la risposta e l'eventuale 
tuo elenco. 

Francesco Giorgio - Via Quilico - 10018 Pavone 
Canavese. 


Vendo programmi per ZX 81 Spectrum VIC 20 TI 
99/4A C 64 a L. 1000 cad. Telefonare dopo ore 
20 00. Fabrizio Cattaneo - C.so Sempione, 63 - Mila¬ 
no - Tel. 386037. 


ZX-80 8 K ROM 16 K RAM manuali vari completo di 
cavi cassette e valigetta + cassetta scacchi, video¬ 
giochi Philips video Pak G 7000+10 cass. + cass 
musica. Solo genova e provincia tei. ore pasti. Al¬ 
berto Schmuckher - C.so Torino 26/14,16129 Ge¬ 
nova - Tel. 010/584292. 


Cerco traduzione del programma VU3D della Sin¬ 
clair, per TI 99/4A, lauta ricompensa, il programma 
può essere fornito per qualsiasi configurazione pel 
il TI 99/4A. Salvatore Imparato - Via Banca Naz. 
Lavoro - 80027 Frattamaggiore (NA) - Tel, 
081/8801301 - 8801450. 

-^- 

Cambìo-vendo programmi per ZX Spectrum (giochi 
utility linguaggi ecc.) L. 4000 cad. Chiedere listino 
gratuito con oltre 250 programmi anche telefonica¬ 
mente (ore pasti). Mario Bontempi - Via Valle, 7 - 
25087 Salò (BS) - Tel. 0365/40637. 


Vendo-scambio fantastici programmi per ZX-81 16 
K in LM come 3D defender scacchi invader e tanti 
altri a prezzi bassissimi. Inviare bollo L. 400 per 
contributo spese postali. Paolo De Cupis - Via Dei 
Gladioli, 2 - 00048 Nettuno (Roma). 


Vendo-cambio software su cassetta per ZX Spec¬ 
trum. Emmanuele Nerantzulis - Via Gramsci. 35 - 
20037 Paderno Dugnano (MI). 


Spectrum soft club. L'iscrizione è gratuita ed aperta 
a tutti. I soci hanno libero accesso ai programmi del 
club e contribuiscono ad aumentare il numero. Per 
maggiori informazioni scrivere a: Marino Marinanza 
- Via F.B. Rastrelli, 102 - 00128 Roma - Tel. 
06/5203292. 


Vendo Sinclair ZX-81 + espansione 16 K + alimen¬ 
tatore con manuali in inglese ed italiano L. 170.000 
+ cartridge word processing a L. 80,000. Roberto 
Turolla - Via Gavirate. 19 - 20148 Milano - Tel. 
4074518. 


Vendo ZX-81 usato per un breve periodo con ma¬ 
nuali italiano e inglese e alcune cassette per memo¬ 
ria base a L. 90.000. Telefonare ore serali. Alessio 
Nigrisoli - Via 8° Strada, 23 - 20090 S. Felice (MI) - 
Tel. 02/7531517. 


Vendo-cambio software per ZX Spectrum 16-48 K; 
dispongo di utility in assembler per vari impieghi. 
Cerco Vufile-e-Vucalc. Inoltre vendo prog. per C 64 
anche in linguaggio Fourth. Ferruccio Zamuner - 
Via G. Di Vittorio, 22 - 10023 Chieri (TO) - Tel. 
011/942282. 


Vendo ZX Spectrum dicembre 1983 garanzia da 
timbrare con 7 programmi (Jetpac - Pool - Scacchi - 
Arcadia - Orazio va a sciare - 3D Tanx - Galaxians) 
L 320.000 intrattabili. Telefonare ore cena tranne 
sabato. Leone Maurizio - Via Pian Delle Mele, 16 - 
65100 Pescara - Tel. 085/414706. 


Cerco listati programmi per Sinclair Spectrum. Sia¬ 
no essi di giochi o utilità. Disponibile a sostenere 
spese di fotocopiatura e spese postali. Inviarli a: 
Domenico Garofalo - Via Panebianco 5° Strada Co- 
op. Frate Umile - 87100 Cosenza. 


Vendo in perfette condizioni ZX-81 + 16 K RAM + 
alimentatore e cavetti + manuale in italiano + soft¬ 
ware (cassette e listati) a L. 130.000. Paolo Gravellini 
- Via C. Colombo, 22 - 20049 Concorezzo (MI) - Tel. 
039/640812. 


Vendo programmi su nastro. Spectrum: 20 + 20 + 20 
progr. (3 nastri diversi). ZX81: 50 + 50 prog. 1K, 35 + 
35 16 K, 20 maxi programmi 16 K. Ogni nastro L. 
7000, contrassegno più 2000. Richiderli a: Bruno 
Del Medico - Via Torino, 72 - 04016 Sabaudia. 


Vendo software Spectrum su cassetta - The hobbit 
VU 3D, simulatore di volo 48 K, monitor and disas¬ 
sembler. L. 12.000 cad. L. 40.000 in blocco. Roberto 
Ghezzi - Via Volontari del Sangue, 202 - 20099 
Sesto San Giovanni (MI) - Tel. 02/2485511. 


Vendo computer ZX-81 con alim. al migliore offe¬ 
rente. A chi lo desidera vendo anche il manuale 
originale in inglese del ZX-81 e 5 cassette magneti¬ 
che e 11 dispense del linguaggio Basic. Edoardo 
Triscari - Via G. Ripamonti, 16 - 20136 Milano - Tel. 
571979 


Vendo-cambio software su cassetta per ZX Spec¬ 
trum. Giovanni De Stefani - Via Capodistria. 18 - 
31100 Treviso -Tel. 261383. 


Vendo ZX80 completo di alimentatore e manuale L. 
60.000, Vendo terminale Olivetti DE 521 con due 
unità a cassette L. 300.000. Adriano Scapini - V.le 
Sicilia, 34 - 37138 Verona - Tel. 045/572740 (ore 
pasti). 


Vendo oltre 100 programmi molto recenti per ZX 
Spectrum 16 K (L. 5000) e 48 K (L. 7000) in linguag¬ 
gio macchina. Giorgio Gatteschi - Via Roma, 430/0 
- 50012 Bagno a Ripoli (FI) - Tel. 055-631312. 


Vendo tutti i programmi per ZX Spectrum sia 16K 
che 48K sono più di 200 programmi. Venduti in 
cassette di buona marca 10.000 per ogni program¬ 
ma sia 16K che48K. Su ordinazione tutti i program¬ 
mi Apple. Enrico Tadini - Via Mameli, 29 - 16035 
Rapallo (GE) - Tel. 0185/60935. 
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Per ZX Spectrum vendo penna ottica L. 40.000 
Vendo inoltre più di 200 programmi a prezzi molto 
bassi. Oltre a molti giochi ho programmi di ingegne¬ 
ria, utilità ecc. chiedere elenco. Carlo Celi - Via 
Giorgetti, 25 - 32100 Belluno - Tel. 0437/27016. 


Cerco possessori di Spectrum di Pavia e provincia 
per scambio programmi. Vorrei fondare anche un 
Sinclair club in Pavia. Matteo Longhini - Via San 
Giovannino, 5 - 27100 Pavia - Tel. 38179. 


Gruppo di hobbisti esperti di informatica ha fondato 
"Soft bank" per Spectrum: circa 400 programmi se¬ 
lezionati e subito pronti, libri, interfaccia Joy, espan¬ 
sioni 80 K a innesto, catalogo L. 800. Luigi Roberto 
Callegari - Via Alcide De Gasperi, 47 - 21040 Sumi- 
rago (VA) - Tel. 0331/909183. 


Spectrum software per radioamatori vendo Oscar 10 
Tracking ORB satelliti Russi e americani Moontrac- 
king Shuttle etc. 14 programmi a L. 15000 comprese 
spese postali. Gianni Matteini - Via C. Pavese, 20 - 
47041 Bellaria (FO) - Tel. 0541 /44292. 


Help cercasi espansione 32 K per ZX-81 in cambio 
do gioco televisivo della soundic TVC e centralina 
luci psichedeliche per informazioni telefonare dopo 
le 8.30 e chiedere di Nicola. Nicola Amato - Via 
Alessandro Manzoni, 5 - 28037 Domodossola (NO) - 
Tel. 0324/44918. 


Vendo-cambio oltre 100 programmi per ZX Spec¬ 
trum 16/48 K a L. 10.000 tutti originali inglesi fra i 
quali: manie miner. bugaboo. Jet pac. chequered 
flag, ecc. Per richiesta della lista inviare L. 1000 in 
francobolli oppure telefonare dopo le 20.00 a: Mas¬ 
similiano Marconi - Via Cantagallo, 64/0 - 50047 
Prato (FI) - Tel. 0574/460716. 


Hai uno ZX-81 ad un solo K di RAM potenziato a 16 
K con sole L. 85.000 prova poi l'espansione con una 
vera cassetta il Tirannosauro e con sole 100.000 ti 
farai un regalo coi fiocchi. Scrivi subito. Nicola Maz- 
zariello - Via Veneria Reale. 40 - 20030 Villaggio 
SNIA (MI) - Tel. 0362/522476. 


Soft club Sinclair vende software per ZX81 con e 
senza espansione su listato o cassetta - oltre 150 
programmi - inviare L. 600 in francobolli per riceve¬ 
re lista programmi a: Soft Club Sinclair di: Antonio 
Nicosia - Via Galatea. 13 - 93100 Caltanisetta - Tel. 
33270. 


Scambio-vendo programmi per ZX Spectrum 16/48 
K dispongo di molti titoli. Scrivete e vi manderò la 
mia lista. Risposta assicurata massima serietà. Ales¬ 
sandro Augello - V.le Del Fante, 56 - 90146 Palermo 
- Tel. 501740. 


Se hai un Sinclair sei nostro amico. Scrivici o telefo¬ 
na disponiamo di tutti i programmi Spectrum, libri, 
adesivi, bollettino a prezzi fantastici! Indirizzare al 
“Gruppo utilizzatori computer Sinclair c/o". Rober¬ 
to Chimenti - Via Luigi Rizzo, 18 - 80124 Napoli - Tel. 
081/617368. 


Compro listati di programmi per ZX81 girabili ad 1K 
di memoria programmi di qualsiasi genere vorrei 
corrispondere con possessori di ZX-81. Dante Bo- 
sia - Via Italia, 8 - 20076 Maleo - Tel. 0377/58168. 


Vendo-cambio software per ZX Spectrum 16-48 K, 
dispongo di Utility in assembler per vari impieghi. 
Cerco Vufile e Vucalc. Inoltre vendo progr. per C 64 
anche in linguaggio ''Fourth". Ferruccio Zamuner - 
Via G. di Vittorio, 22 - 10023 Chierti (TO) - Tel. 
011 /9422829. 


Vendo ZX Spectrum completo di cavetti per il regi¬ 
stratore, alimentatore, manuale di istruzioni in italia¬ 
no + 2 programmi in cassetta, a L. 350.000. Walter 
Lubatti - Via Sestriere. 53/2 -10024 Moncalieri(TO) 
- Tel. 011 /6066975. 


Vendo a L. 5000 ciascuno numerosi programmi in 
linguaggio macchina per ZX Spectrum 16 o 48K 
chiedere elenco aggiornato e maggiori dettagli a: 
Cosimo Dibello - Via Perugini, 19 - 70043 Monopoli 
(BA) - Tel. 080/746126. 


Causa passaggio sistema superiore vendo ZX-81 
con alimentatore e cavi + 2 manuali uno inglese ed 
uno italiano + vari listati a L. 90.000 usato pochissi¬ 
mo, ancora in imballo originale. Roberto Poletli - Via 
F. Cilea, 14 - 50054 Fucecchio (FI) - Tel. 
0571/22906. 


Vendo 25 giochi originali inglesi su cassetta per ZX 
Spectrum a L. 50 000 + spese (spedizione - even¬ 
tuali fotocopie di manuali). Dispongo inoltre di soft¬ 
ware di ogni tipo. Chiedere lista con 200 titoli a: Nico 
Dialessandro - Via C. Alcide De Gasperi, 413/D - 
70125 Bari - Tel. 412470. 


Cambio-vendo software Spectrum 16/48 K. Buon 
prezzo inviatemi vostro elenco per scambio vi invie¬ 
rò il mio. Oppure richiedete la mia lista per acquisti 
allegando L. 400 in francobolli. Erminio Benzoni - 
Vìa Del Cipresso, 4 - 22050 Perledo (CO) - Tel. 
0341 /830026 (ore serali). 


Sinclair su nastro. Spectrum 20+20+20 progr. (3 
nastri diversi). ZX81:50+50 progr 1K; 35+35 progr. 
16 K: 20 maxi prog. 16 K. Incredibile ogni nastro L. 
7000 Volendo pagare al postino aggiungere L. 
2000. Bruno Del Medico - Via Torino, 72 - 04016 
Sabaudia (LT). 


Spectrum vendo programmi gioco e utilità risposta 
garantita invio elenco gratuitamente scrivere a: An¬ 
tonio Sfriso - Via Salomone, 7 - 30173 Mestre (VE) - 
Tel. 041/972887 cena. 


Vendo programmi per ZX Spectrum a prezzi bassi. 
Scrivere o telefonare (di sera) per ricevere gratis 
l'elenco. Stefano Calcaterra - Via Marconi, 34/2 - 
40122 Bologna - Tel. 051/521063. 


Vendo programmi Spectrum 16/48 K originali ingle¬ 
si a max L. 12.000 per i migliori da 48 K. Richiedere 
elenco inviando francobollo a: Maurizio Leone - Via 
Gaio Melisso, 16 - 00175 Roma - Tel. 7662671. 


Texas 


Texas TI99/4A + alimentatore + collegamento TV + 
cavo interfaccia registratore + corso Basic in cas¬ 
setta + modulo scacchi + coppia Joystick + softwa¬ 
re vario a L. 320.000 trattabili (I!) Vendo Telefonare 
ore pasti. Fabio Scaffidi - V.le Casiraghi, 34 - 20099 
Sesto S. Giovanni (MI) - Tel. 248756. 


Per passaggio a sistema superiore vendo Texas 
TI-99/4A completo di manuale, alimentatore, mo¬ 
dulatore Pai tutto originale a L. 350.000 (+ 1 casset¬ 
ta). Per informazioni rivolgersi a: Maurizio Levoni - 
Via Medaglie D'oro, 46 - 41100 Modena. 


Vendo TI 99/4A + gioco TI invaders + gioco di 
Basic x TI 99 + manuale d'uso e lutti i cavi speciali L. 
330.000 trattabili. Luca Cislaghi - Via Melloni. 10 - 
20129 Milano - Tel. 02/708307. 


Per TI 99 offro numerosi programmi giochi archivio 
e funzionamento dei file - matematica (derivate inte¬ 
grali zèri funzione calcolo equazioni) il tutto a prezzi 
popolari francobolli per la lista. Daniele Catalfamo - 
Via Guido Reni 219/5 - 10137 Torino - Tel. 305093. 


Acquisto dietro rimborso spese ed eventuale equo 
compenso, copia corretta listato "Factor Foe" per 
Texas TI 99/4A. Raffaele Ferrigno - Via Andrea D'I- 
jernia. 4 - 80122Napoli-Tel.081/681571 - 685720 


Vendo programmi per il TI 99/4A da L. 2000 in su. 
Sono disponibili anche programmi in extended Ba¬ 
sic. Richiedere lista a: Raffaele Avino - Via Lepanto - 
80045 Pompei (NA) - Tel. 081/8632802. 


Vendo-scambio programmi per il computer della 
Texas Instruments TI 99/4À. Disponibili solo su cas¬ 
setta. Per informazioni telefonare di pomeriggio. Lu¬ 
ca Maggioni - Via XXV Aprile, 29 - 20090 Segrate 
(MI) - Tel. 2131056. 


Vendo per Texas TI 99/4A a sole L. 3000 ottimi 
programmi registrati su cassetta. Luciano lapichino 
- Via Avigliana, 16 - 10098 Rivoli (TO) - Tel. 
011/9533290. 


Scambiamo-vendiamo software per il TI 99/4A: gio¬ 
chi, matematica, ingegneria (anche in extended). 
Richiedete la lista di oltre 500 programmi inviando 
bollo L, 500. Massima serietà e celerità. TI 99 IT 
Users' club - Via Mascarella 104/9 - 40126 Bologna 
- Tel. 051/224310 (Lunedì pomeriggio). 


Texas TI 58C poco usata imballo originale con ma¬ 
nuali e alimentatore vendo L. 100.000 scrivere o 
telefonare ore pasti. Valentino Bilardi - Via Stampa, 
2 - 10010 Settimo Vinone (TO) - Tel. 0125/758356. 


Vendo per possessori TI 99/4A modulo SSS “black- 
jack & poker” a L. 35.000. Ignazio Marturano - Via 
Pisanelli, 17 - 74100 Taranto. 


Cerco schema elettrico e descrizione tecnica del TI 
99/4A. Pietro Viani - Via 5 Maggio, 11 - 20157 Mila¬ 
no. 


Vendo programmi su cassetta per TI 99/4A in Basic. 
10 programmi a sole L. 10.000 escluse le spedizioni. 
Telefonare solo dalle 17.00alle 18.00 esclusi sabato 
e festivi. Osvaldo Danzi - Via Tito Livio, 3 - 80122 
Napoli - Tel. 7697702. 


Vendo programmi per il TI 99/4A. Sono disponibili 
inoltre programmi per l'extended Basic fra cui un 
interessante word processing richiedere lista a: An¬ 
drea Barbieri - Vìa Livorno, 12/A - 35100 Padova. 


Vendo software per TI 99/4A. Disponibili In Basic o 
Extended Basic, in vendita a L. 6000 comprese cas¬ 
setta & spedizione. Romano Perico - Via Gerani, 2 - 
24025 Gazzaniga (BG) - Tel. 035-711993. 


Cerco cassetta TI-99 Adventure + pirate a un prez¬ 
zo trattabile sulle L. 25.000. Guelfi Lionello - Via 
Vasto, 1 - 20097 S. Donato Mil. (MI) - Tel.5275022 


Vendo programmi per TI 99/4A (molti giochi, utility, 
ecc.) in TI Basic e in Extended Basic. Inviare un 
francobollo per ricevere dettagliato listino prezzi. 
Stefano Dominioni - Via N. Tommaseo, 18 - 21100 
Varese - Tel. 0332/229909. 
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Varie 


AIUTO!!!! Da alcuni mesi ho a disposizione un per¬ 
sonal SHARP MZ 80 B e purtroppo nessuno ne parla 
mai; tutta la mia riconoscenza a chi volesse darmi 
consigli su tutto quel che riguarda programmazione 
BASIC, listati, libri in generale o specifici per lo 
SHARP MZ 80 B. Giovanni Caligaris - Via Campile, 
64 - 13062 Candelo - Tel. 015/53226, 


Cercasi programmi di ingegneria civile ("373", tra¬ 
vi,...). Solamente su listati oppure su cassette per 
Sharp MZ 731 o per VIC 20 (non protetti). Scrivere 
per accordi. Gianluca Renna - Via S. Andrea, 25 - 
00046 Grottaferrata (RM). 


Acquisto numeri arretrati di computer! e pubblica¬ 
zioni in lingua inglese riguardanti l'Apple II (manuali, 
riviste ecc.). Rispondo a tutti. Non mi interessano 
fotocopie. Scrivere a: Stefano Dellabiancia - P.zza 
Douhet, 30 - 62016 Porto Potenza Picena - Tel. 
0733/688191. 


Sirius vendosi manuali in italiano, anche su dischet¬ 
to (Basic C86. CP/M-86. MS-DOS, CIS-COBOL. 
ecc). Scrivere o telefonare a: Studio EDP- 
Informatica - Via S. Pio X, 50 - 31031 Caerano S. 
Marco (TV) - Tel. 0423/858201. 


Vendo Newbrain mod. AD completo di cavetti TV e 
registratore + trasformatore + manuali inglese e 
italiano + manuali "beginner's guide programs" e 
cassetta originali a L. 700.000 trattabili. Bedin Gia¬ 
como - Via Novara, 37 - 20029 Turbigo (MI) - Tel. 
0331/899071. 


Olivetti BCS 2030 con software di base mai usato 
cedo per L. 12.000.000 più 21 rate da L. 343.000. 
Roberto Napoli - Via Bravetta - 00164 Roma - Tel. 
6254611. 


Cambio Atari VCS ancora in garanzia con 5 cassette 
tra cui River Raid MS PAC-MAN, Laser Blast, Com¬ 
bat star Voyager con ZX Spectrum o Commodore 
C64 o vendo a L. 320.000 telefonare ore 13,30 in poi 
Massimo Pecorari - Via Quasimodo. 23 - 62012 
Civitanova Marche (MC) - Tel. 0733/74023. 


Per Atari 400-800 vendo due favolosi giochi: batta¬ 
glia aeronavale e black-hole, presentati con suc¬ 
cesso al computer play 83 e ripresi da RAI2 Tandem. 
Una cassetta L. 60.000 - Cerco Ataristi Bologna. 
Cristiano Fanucci - Via Spartaco, 29 - 40138 Bolo¬ 
gna - Tel. 051/533343. 


Vendo enciclopedia EST completamente aggiorna¬ 
ta prezzo bomba L. 800.000 una base sicura per 
addentrarsi nei meandri della scienza e dei compu- 
ters. (valore commerciale L. 1.200.000). Riccardo 
Pucher - Via Roma, 174/A - 30038 Spinea (VE) - Tel. 
041/991987. 


Cambio software Sharp MZ80A/K specie giochi. 
Dispongo indirizzi poke SP5025 SA5510 Utilities 
subroutines modifiche Basic. Rispondo anche a chi 
non ha programmi da scambiare. Solo per lettera. 
Letizia Bizzarri - Via Lago Isoletta. 31 - 65100 Pe¬ 
scara, 


Vendo videogioco intellivision in perfetto stato più 
tre cassette (star-strike, poker; beauty and thè best 
della imagic) tutto a L. 300.000 o permuto con com¬ 
puter T.l. 99/4A. Paola Pinto - Via Oberdan, 86 - 
73100 Lecce - Tel. 0832/33312. 


Vendo Osborne 1 completo di manuale in italiano e 
programmi inusato. Pino Mariani - Via Nenni, 2 - 
02014 Ozieri - Tel. 079/786131. 


Svendo il primo volume dell'enciclopedia "BASIC" 
(Curdo ed.) più i primi sette fascicoli del secondo 
volume. Il 1° volume corredato di copertina è da 
rilegare. Tutto L. 30.000. Frediano Frumento - Via 
Gramsci 44/10 - 17047 Vado Ligure (SV) - Tel. 
019/884239. 


Vendo per Micro Z80 NE - configurato con scheda 
grafica (LX529) e almeno un drive - dischetto 5" 
completamente riempito da 14 nuovi programmi di 
gioco e grafici. Il tutto a L. 20.000 ri- 8000 per di¬ 
schetto e postali, in contrassegno. Federico Venier- 
Via Venezia, 120 - 33170 Pordenone - Tel. 
0434/42500. 


Vendo-cambio programmi di ingegneria (Kani 130, 
package zona sismica, ecc. Data base ecc.) a prezzi 
super convenienti o cambio con equivalenti. Scrive¬ 
re o telefonare solo per Sharp MZ80B. Stefano Laz¬ 
zaro - Via Molte Sabotino, 2 - 35141 Padova - Tel. 
049/22675. 


Cerco possessori Dragon 32 per scambio program¬ 
mi e idee. Luca Benetti - Via S. Andrea, 16/A -19100 
La Spezia - Tel. 27372, 


BASIC club per scambio software, opinioni, consigli 
e tutto senza pagare una lira. Per informazioni scri¬ 
vere a De Rensis Nicola Club - Via M. Buonarrotli. 28 
- 51100 Pistoia - Tel. 27197. 


Computer MPF II compatibile Apple, con pochi mesi 
di vita, completo di tastiera esterna. Manuale di pro¬ 
grammazione e d'uso. Con 5 programmi in omaggio. 
Vendo a L. 800.000 Telefonare ore serali. Tel, 
02/585633. 


Vendo software ingegneria civile per Triump adler 
alphtronic P2 e PC - torsione - forze sismiche - telai 
sino alio nodi - aree acciaio - ecc. Per informazio¬ 
ni ing. Cesare Ambrosini - Via Cavallo, 85/B - 60019 
Senigallia (AN) - Tel. 071/64989. 


Vendo monitor 12" Kyber a fosfori verdi a L. 120.000. 
Vendo inoltre monitor colore 14” Hantares con in¬ 
terfaccia per Apple II a L. 560.000 non trattabili. 
Walter Franceschi - Via Binel, 4 - 11020 Donnas 
(AO) - Tel. 0125/82374. 


Occasionissima! Vendo consolle per videogiochi 
Philips (tastiera elettronica) + una cassetta (asteroi¬ 
di) a sole L. 1 25.000 (imballaggio e spese spedizione 
comprese). Telefonare ore serali. Mauro Faccin - 
Via Giuseppe Cesare Abba - 17024 Finale Ligure - 
Tel. 019/690586. 


Vero affare svendo computer Sharp MZ80K memo¬ 
ria 48K video registratore interfaccia stampante 
cassetta BASIC a sole L. 1.000.000. Antonio Attard - 
Via Riva del Garda, 27-3 - 39100 Bolzano - Tel. 
0471/45470. 


Vendo Sharp PC1500 + plotter 4 colori CE-150 ri- 
espansione 4K ri- trasformatore ri- manuali telefona¬ 
re tra le ore 17 e le ore 19 L. 750.000 trattabili. 
Simone Besana - Via St. San Felice, 84/7 - 10025 
Pino + SE. (TO) - Tel. 011/842730. 




Vendo giochi per Sharp MZ-80 A, se siete interessa¬ 
ti scrivete per richiedere lista a: John Ceresi - Via 
Mazzini - 18016 S. Bartolomeo Al Mare. 


Intellivision + 18 cassette + tastiera Keiboard in 
garanzia vendesi a L. 850.000 - eventualmente an¬ 
che separatamente. Telefonare dopo ore 20, Andrea 
Virgìlli - Via Vetulonia, 1 - 40139 Bologna - Tel, 
547547. 


Acquislo-scambio-vendo programmi (utility- 
games) per computer Atari 400-800. Luigi Servolini - 
Via La Spezia, 81 - 00182 Roma - Tel. 06/384488 - 
7581219. 


Per Atari 400-800 vendo-scambio software origina¬ 
le americano utility-games solo su disco per VCS 
Atari vendo 24 cassette videogiochi a L. 800.000. 
Vittorio Di Paola - Via S. Dino Isol. 8, 18 - 80058 
Torre Annunziata (NA) - Tel. 081/8614223. 
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La Rebit Computer, distributrice per 
l’Italia dei prodotti SINCLAIR, 
ha messo a punto 
una nuova supergaranzia 

che ti darà 
i seguenti vantaggi: 

1° Prezzo ridotto 
nell’acquisto 

dell’interfaccia programmabile. 

2 ° Tessera sconto 
sull’acquisto 
dei programmi. 

2° Tariffa ridotta 
per l’abbonamento 
a “Sperimentare 
con il Computer” 

4 ° Libro sulle interfacce 
e sui microdrives. 

Un risparmio 
di oltre 
70.000 lire. 


DIVISION Of G.B.C 


molto di più di una garanzia! 
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